diff options
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 3 |
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) |