branch: elpa/geiser-chicken
commit 95d19aa6a9a661f0d8b2c94e29375a5b02bb185c
Author: Dan Leslie <[email protected]>
Commit: Dan Leslie <[email protected]>
Minor changes to help with debugging completions
---
geiser/emacs.scm | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 062e2a7..377c4d3 100644
--- a/geiser/emacs.scm
+++ b/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)))
