cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 534211afacddd9c1d2422c59df1bf2121107a4f2
Author: Robin Templeton <[email protected]>
AuthorDate: Tue Jun 24 00:01:56 2014 -0400
symbol default value procedures
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
* module/language/elisp/runtime.scm:
(symbol-default-bound?, symbol-default-value, set-symbol-default-value!):
New procedure aliases. Export their symbols.
(emacs!): Update to accept new parameters dref, dset, dboundp.
---
module/language/elisp/runtime.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/module/language/elisp/runtime.scm
b/module/language/elisp/runtime.scm
index bedb15a8..ff01520 100644
--- a/module/language/elisp/runtime.scm
+++ b/module/language/elisp/runtime.scm
@@ -37,6 +37,9 @@
set-symbol-plist!
symbol-bound?
symbol-fbound?
+ symbol-default-bound?
+ symbol-default-value
+ set-symbol-default-value!
bind-symbol
makunbound!
fmakunbound!
@@ -193,6 +196,12 @@
(dynamic-bound? (variable-ref var))
#t)))))
+(define symbol-default-bound? symbol-bound?)
+
+(define symbol-default-value symbol-value)
+
+(define set-symbol-default-value! set-symbol-value!)
+
(define (symbol-fbound? symbol)
(set! symbol (schemify symbol))
(and
@@ -225,10 +234,13 @@
(vector-set! (symbol-desc sym) 3 1)
#nil)
-(define (emacs! ref set boundp bind)
+(define (emacs! ref set boundp dref dset dboundp bind)
(set! symbol-value ref)
(set! set-symbol-value! set)
(set! symbol-bound? boundp)
+ (set! symbol-default-value dref)
+ (set! set-symbol-default-value! dset)
+ (set! symbol-default-bound? dboundp)
(set! bind-symbol bind)
(set! lexical-binding? (lambda () (symbol-value 'lexical-binding)))
(set! set-lexical-binding-mode (lambda (x) (set-symbol-value!
'lexical-binding x))))
