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.

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))