From e80ca5a541a08a08be96f7c3a3d212cb51bfdbeb Mon Sep 17 00:00:00 2001 From: Dan Leslie Date: Mon, 25 Jan 2016 09:21:35 -0800 Subject: Fixes a potential endless loop. --- scheme/chicken/geiser/emacs.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'scheme/chicken') 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) -- cgit v1.2.3