diff options
Diffstat (limited to 'scheme/chicken/geiser')
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index 062e2a7..377c4d3 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/geiser/emacs.scm @@ -223,10 +223,13 @@ (define (memoize tag thunk) (let ((table (memo))) (if (hash-table-exists? table tag) - (hash-table-ref table tag) (begin + (write-to-log '[[Cache Hit]]) + (hash-table-ref table tag)) + (begin + (write-to-log '[[Cache Miss]]) (hash-table-set! table tag (thunk)) - (memoize tag thunk))))) + (hash-table-ref table tag))))) (define debug-log (make-parameter #f)) (define (write-to-log form) @@ -562,10 +565,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (geiser-completions prefix . rest) - (let ((prefix (->string prefix)) - (unfiltered (map remove-internal-name-mangling - (apropos-list prefix #:macros? #t)))) - (filter (cut string-has-prefix? <> prefix) unfiltered))) + (let ((prefix (->string prefix))) + (filter + (cut string-has-prefix? <> prefix) + (map remove-internal-name-mangling + (apropos-list prefix #:macros? #t))))) (define (geiser-module-completions prefix . rest) (let ((prefix (->string prefix))) |