HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
77a0647
)
fix symbol-function
author
Robin Templeton
<robin@terpri.org>
Fri, 18 Jul 2014 21:43:20 +0000
(17:43 -0400)
committer
Robin Templeton
<robin@terpri.org>
Tue, 21 Apr 2015 23:36:29 +0000
(19:36 -0400)
module/language/elisp/runtime.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/elisp/runtime.scm
b/module/language/elisp/runtime.scm
index
e4bd0ff
..
dba2a54
100644
(file)
--- a/
module/language/elisp/runtime.scm
+++ b/
module/language/elisp/runtime.scm
@@
-158,10
+158,10
@@
value)
(define (symbol-function symbol)
- (
set! symbol (schemify symbol))
-
(ensure-present! function-slot-module symbol (lambda () #ni
l))
-
(let ((module function-slot-module)
)
-
(module-ref module symbo
l)))
+ (
cond
+
((module-variable function-slot-module (schemify symbo
l))
+
=> variable-ref
)
+
(else #ni
l)))
(define (set-symbol-function! symbol value)
(set! symbol (schemify symbol))