diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-02 14:11:30 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-02 14:11:30 +0200 |
| commit | b05120e5872382528c73416046d4e19cdb1bc88f (patch) | |
| tree | ece8cb319974fcea11d4951cc73c55ef1c111eff | |
| parent | 69d94011a0261392a7772980d2b95e1469b2e876 (diff) | |
| download | geiser-guile-b05120e5872382528c73416046d4e19cdb1bc88f.tar.gz geiser-guile-b05120e5872382528c73416046d4e19cdb1bc88f.tar.bz2 | |
Racket: fix for enter!
| -rw-r--r-- | scheme/racket/geiser/enter.rkt | 6 |
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))))))))) |