[nongnu] elpa/geiser-chicken d3743db 051/102: Fixes a potential endless loop.

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit d3743dbd3d0d65b7fc82667ac6fe77ebb0a1f18e
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Fixes a potential endless loop.
---
 geiser/emacs.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 8ec3440..b4274cf 100644
--- a/geiser/emacs.scm
+++ b/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)