summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-09 22:40:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-09 22:53:27 +0100
commite1673221200c35bdacffebbcc26c2e562080a9fd (patch)
tree5c67f9fa4541b49090e9d95ddbe6a4d5068c27f8 /scheme
parent8d8d07981ebb0d7c605ed4efa3e6fe16a4fd8894 (diff)
downloadgeiser-chez-e1673221200c35bdacffebbcc26c2e562080a9fd.tar.gz
geiser-chez-e1673221200c35bdacffebbcc26c2e562080a9fd.tar.bz2
Racket: ',enter "foo"' as a synonym of ',enter (file "foo")'
Diffstat (limited to 'scheme')
-rw-r--r--scheme/racket/geiser/user.rkt3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index 70defd4..72aa48a 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/geiser/user.rkt
@@ -1,6 +1,6 @@
;;; user.rkt -- global bindings visible to geiser users
-;; Copyright (C) 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2011 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -28,6 +28,7 @@
[(module-path? mod)
(enter-module mod)
(current-namespace (module->namespace mod))]
+ [(path-string? mod) (enter! `(file ,mod) stx)]
[else (raise-syntax-error
#f
"not a valid module path, and not #f"