summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/enter.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-02 14:11:30 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-02 14:11:30 +0200
commitb05120e5872382528c73416046d4e19cdb1bc88f (patch)
treeece8cb319974fcea11d4951cc73c55ef1c111eff /scheme/racket/geiser/enter.rkt
parent69d94011a0261392a7772980d2b95e1469b2e876 (diff)
downloadgeiser-chez-b05120e5872382528c73416046d4e19cdb1bc88f.tar.gz
geiser-chez-b05120e5872382528c73416046d4e19cdb1bc88f.tar.bz2
Racket: fix for enter!
Diffstat (limited to 'scheme/racket/geiser/enter.rkt')
-rw-r--r--scheme/racket/geiser/enter.rkt6
1 files changed, 3 insertions, 3 deletions
diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index d7802f5..924ef59 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -121,7 +121,7 @@
(values -inf.0 path)))
(values -inf.0 path)))))
-(define (check-latest mod flags)
+(define (check-latest mod)
(define mpi (module-path-index-join mod #f))
(define done (make-hash))
(let loop ([mpi mpi])
@@ -139,8 +139,8 @@
(when (ts . > . (mod-timestamp mod))
(define orig (current-load/use-compiled))
(parameterize ([current-load/use-compiled
- (enter-load/use-compiled orig #f flags)]
+ (enter-load/use-compiled orig #f)]
[current-module-declare-name rpath]
[current-module-declare-source actual-path])
- ((enter-load/use-compiled orig #t flags)
+ ((enter-load/use-compiled orig #t)
npath (mod-name mod)))))))))