[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 15/36: fix symbol-function
From: |
Christopher Allan Webber |
Subject: |
[Guile-commits] 15/36: fix symbol-function |
Date: |
Tue, 19 Oct 2021 18:11:25 -0400 (EDT) |
cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 361db0dca8eb4850bad23b71dddf120ed4772cf2
Author: Robin Templeton <robin@terpri.org>
AuthorDate: Fri Jul 18 17:43:20 2014 -0400
fix symbol-function
(Best-ability ChangeLog annotation added by Christine Lemmer-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 e4bd0ff..dba2a54 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))
- [Guile-commits] 03/36: check symbols constants uninterned, (continued)
- [Guile-commits] 03/36: check symbols constants uninterned, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 04/36: multiple obarrays, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 09/36: read nil/t as #nil/#t, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 10/36: symbol default value procedures, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 11/36: defvar affects default value, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 12/36: constant-interning fix, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 14/36: restore special operator handling, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 08/36: elisp updates, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 13/36: define-module for elisp special modules, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 16/36: compile-elisp fn, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 15/36: fix symbol-function,
Christopher Allan Webber <=
- [Guile-commits] 18/36: defconst, defvar: proclaim special at compile-time, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 19/36: compiler macros, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 21/36: use defsubst, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 23/36: eval-when, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 26/36: top level fixes, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 17/36: elisp @@ macro, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 36/36: elisp: boot: Replace removed FRAME-PROCEDURE with FRAME-PROCEDURE-NAME., Christopher Allan Webber, 2021/10/19
- [Guile-commits] 20/36: defsubst, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 29/36: use guile eval for elisp tree-il, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 31/36: use standard evaluator, Christopher Allan Webber, 2021/10/19