[Guile-commits] 02/06: Mark some elisp runtime modules as non-declarative

[Andy Wingo]

wingo pushed a commit to branch wip-inlinable-exports
in repository guile.

commit 6cb49d1d2b059969f545922c257a937933e26860
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Sun Apr 4 21:59:29 2021 +0200

    Mark some elisp runtime modules as non-declarative
    
    * module/language/elisp/runtime/function-slot.scm (language):
    * module/language/elisp/runtime/value-slot.scm (language):
    Non-declarative.
---
 module/language/elisp/runtime/function-slot.scm | 3 ++-
 module/language/elisp/runtime/value-slot.scm    | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/module/language/elisp/runtime/function-slot.scm 
b/module/language/elisp/runtime/function-slot.scm
index 3b10205..5e5f625 100644
--- a/module/language/elisp/runtime/function-slot.scm
+++ b/module/language/elisp/runtime/function-slot.scm
@@ -1,6 +1,6 @@
 ;;; Guile Emacs Lisp
 
-;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;;; Copyright (C) 2009, 2010, 2021 Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -60,4 +60,5 @@
                quote
                %funcall
                %set-lexical-binding-mode)
+  #:declarative? #f
   #:pure)
diff --git a/module/language/elisp/runtime/value-slot.scm 
b/module/language/elisp/runtime/value-slot.scm
index c2f3666..d8f9cdd 100644
--- a/module/language/elisp/runtime/value-slot.scm
+++ b/module/language/elisp/runtime/value-slot.scm
@@ -1,6 +1,6 @@
 ;;; Guile Emacs Lisp
 
-;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
+;;; Copyright (C) 2009, 2010, 2021 Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Lesser General Public
@@ -19,6 +19,7 @@
 ;;; Code:
 
 (define-module (language elisp runtime value-slot)
+  #:declarative? #f
   #:pure)
 
 ;;; This module contains the value-slots of elisp symbols.