summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scheme/chicken/geiser/emacs.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm
index 8ec3440..b4274cf 100644
--- a/scheme/chicken/geiser/emacs.scm
+++ b/scheme/chicken/geiser/emacs.scm
@@ -227,9 +227,10 @@
(begin
(write-to-log '[[Cache Hit]])
(hash-table-ref table tag))
- (begin
+ (fluid-let ((memoize (lambda (tag thunk) (thunk))))
(write-to-log '[[Cache Miss]])
(hash-table-set! table tag (thunk))
+
(hash-table-ref table tag)))))
(define (symbol-information-list)