summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/enter.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/racket/geiser/enter.rkt')
-rw-r--r--scheme/racket/geiser/enter.rkt18
1 files changed, 9 insertions, 9 deletions
diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index 58be936..181c06a 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -16,7 +16,7 @@
(provide get-namespace enter-module module-loader module-loaded?)
-(define-struct mod (name timestamp depends))
+(struct mod (name timestamp depends))
(define loaded (make-hash))
@@ -60,14 +60,14 @@
(or (current-load-relative-directory)
(current-directory)))))])
;; Record module timestamp and dependencies:
- (let ([mod (make-mod name
- (get-timestamp path)
- (if code
- (apply append
- (map cdr
- (module-compiled-imports code)))
- null))])
- (hash-set! loaded path mod))
+ (let ([m (mod name
+ (get-timestamp path)
+ (if code
+ (apply append
+ (map cdr
+ (module-compiled-imports code)))
+ null))])
+ (hash-set! loaded path m))
;; Evaluate the module:
(eval code))
;; Not a module: