diff options
author | Robin Templeton <robin@terpri.org> | 2014-07-18 17:43:20 -0400 |
---|---|---|
committer | Christopher Allan Webber <cwebber@dustycloud.org> | 2016-03-25 12:00:12 -0700 |
commit | 31afd07744fbb8383e62bef768474f816a5aed5b (patch) | |
tree | 21ac7e57932178dda15a8cb5d3e8c8c2a2d84ade | |
parent | ee48df0ec1edd4236f4b5f4cde23ad22b7a8a7a0 (diff) | |
download | guile-31afd07744fbb8383e62bef768474f816a5aed5b.tar.gz |
fix symbol-function
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/language/elisp/runtime.scm (symbol-function): Adjust function.
-rw-r--r-- | module/language/elisp/runtime.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm index e4bd0ffb2..dba2a5476 100644 --- 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 () #nil)) - (let ((module function-slot-module)) - (module-ref module symbol))) + (cond + ((module-variable function-slot-module (schemify symbol)) + => variable-ref) + (else #nil))) (define (set-symbol-function! symbol value) (set! symbol (schemify symbol)) |