diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2016-01-25 09:21:35 -0800 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2016-01-25 09:21:35 -0800 |
| commit | e80ca5a541a08a08be96f7c3a3d212cb51bfdbeb (patch) | |
| tree | 23a0bfe5949bda239daf0aea80daae25e7978c09 /scheme | |
| parent | 04b0b3915741860a61532059b7e5291b7b98e031 (diff) | |
| download | geiser-guile-e80ca5a541a08a08be96f7c3a3d212cb51bfdbeb.tar.gz geiser-guile-e80ca5a541a08a08be96f7c3a3d212cb51bfdbeb.tar.bz2 | |
Fixes a potential endless loop.
Diffstat (limited to 'scheme')
| -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) |