mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

fix symbol-function

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/language/elisp/runtime.scm (symbol-function): Adjust function.
This commit is contained in:
Robin Templeton 2014-07-18 17:43:20 -04:00 • committed by Christine Lemmer-Webber
parent 8a4905f2cb
commit 361db0dca8
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/elisp/runtime.scm
View file

@ -158,10 +158,10 @@
value) value)
(define (symbol-function symbol) (define (symbol-function symbol)
(set! symbol (schemify symbol)) (cond
(ensure-present! function-slot-module symbol (lambda () #nil)) ((module-variable function-slot-module (schemify symbol))
(let ((module function-slot-module)) => variable-ref)
(module-ref module symbol))) (else #nil)))
(define (set-symbol-function! symbol value) (define (set-symbol-function! symbol value)
(set! symbol (schemify symbol)) (set! symbol (schemify symbol))