summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-14 20:19:10 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-14 20:43:26 +0100
commita07fcbb866082f533acbe89e028d05d4a3904b2a (patch)
treefa74a78d0a24c391b62f3bcd237bdebb0f4550f5 /scheme
parent39d79b5b02bfa183715996b15e7b3ca2b87973b9 (diff)
downloadgeiser-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')
-rw-r--r--scheme/racket/geiser/autodoc.rkt2
-rw-r--r--scheme/racket/geiser/eval.rkt2
-rw-r--r--scheme/racket/geiser/user.rkt10
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))