diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-14 20:19:10 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-14 20:43:26 +0100 |
| commit | a07fcbb866082f533acbe89e028d05d4a3904b2a (patch) | |
| tree | fa74a78d0a24c391b62f3bcd237bdebb0f4550f5 /scheme/racket/geiser/user.rkt | |
| parent | 39d79b5b02bfa183715996b15e7b3ca2b87973b9 (diff) | |
| download | geiser-guile-a07fcbb866082f533acbe89e028d05d4a3904b2a.tar.gz geiser-guile-a07fcbb866082f533acbe89e028d05d4a3904b2a.tar.bz2 | |
Support for implementation-specific font lock keywords
Spinning up from correct fontification of [else in this brave Racket
world.
I'm keeping the list of extra keywords lean and mean, but making it
customizable in both Racket and Guile.
Diffstat (limited to 'scheme/racket/geiser/user.rkt')
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 10 |
1 files changed, 5 insertions, 5 deletions
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)) |