From e2eb15bc37a5e036a9f50ea218b618cfad12d565 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Fri, 18 Jul 2014 17:43:20 -0400 Subject: fix symbol-function (Best-ability ChangeLog annotation added by Christopher Allan Webber.) * module/language/elisp/runtime.scm (symbol-function): Adjust function. --- module/language/elisp/runtime.scm | 8 ++++---- 1 file 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)) -- cgit v1.2.3