diff options
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/racket/geiser/autodoc.rkt | 2 | ||||
| -rw-r--r-- | scheme/racket/geiser/eval.rkt | 2 | ||||
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 10 | 
3 files changed, 5 insertions, 9 deletions
| diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt index 9eaec15..ce6553f 100644 --- a/scheme/racket/geiser/autodoc.rkt +++ b/scheme/racket/geiser/autodoc.rkt @@ -187,5 +187,3 @@                              '(define-syntax-rule struct                                 define-syntax define set! define-struct)))))      (hash-remove! signatures path))) - -;;; autodoc.rkt ends here diff --git a/scheme/racket/geiser/eval.rkt b/scheme/racket/geiser/eval.rkt index c406aae..12c77ae 100644 --- a/scheme/racket/geiser/eval.rkt +++ b/scheme/racket/geiser/eval.rkt @@ -77,5 +77,3 @@    (lambda ()      (last-namespace (current-namespace))      (reader))) - -;;; eval.rkt ends here diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt index e379946..4508468 100644 --- a/scheme/racket/geiser/user.rkt +++ b/scheme/racket/geiser/user.rkt @@ -24,15 +24,15 @@  (define top-namespace (current-namespace))  (define (enter! mod stx) -  (cond ((not mod) (current-namespace top-namespace)) -        ((module-path? mod) +  (cond [(not mod) (current-namespace top-namespace)] +        [(module-path? mod)           (enter-module mod) -         (current-namespace (module->namespace mod))) -        (else (raise-syntax-error +         (current-namespace (module->namespace mod))] +        [else (raise-syntax-error                 #f                 "not a valid module path, and not #f"                 stx -               mod)))) +               mod)]))  (define orig-loader (current-load/use-compiled))  (define geiser-loader (module-loader orig-loader)) | 
