summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-03-24 09:45:44 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-03-24 09:45:44 +0100
commit9b76fa6e9927c09ad36fdf93bc8d1e570fcf6383 (patch)
tree55ccb056329546575fba2ac4e8168ffe68ef9f16 /scheme/racket/geiser
parenta6670bbcdc83237ae32e0fcb0c3fe95dc53255bf (diff)
downloadgeiser-guile-9b76fa6e9927c09ad36fdf93bc8d1e570fcf6383.tar.gz
geiser-guile-9b76fa6e9927c09ad36fdf93bc8d1e570fcf6383.tar.bz2
,cd for Racket REPL
It's not perfect and undocumented, but useful nonetheless.
Diffstat (limited to 'scheme/racket/geiser')
-rw-r--r--scheme/racket/geiser/enter.rkt4
-rw-r--r--scheme/racket/geiser/user.rkt3
2 files changed, 3 insertions, 4 deletions
diff --git a/scheme/racket/geiser/enter.rkt b/scheme/racket/geiser/enter.rkt
index dbad12b..cb33a55 100644
--- a/scheme/racket/geiser/enter.rkt
+++ b/scheme/racket/geiser/enter.rkt
@@ -1,6 +1,6 @@
;;; enter.rkt -- custom module loaders
-;; Copyright (C) 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2012 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
@@ -138,5 +138,3 @@
((enter-load/use-compiled orig #t)
path
(mod-name mod)))))))))))))))
-
-;;; enter.rkt ends here
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index 4479b42..c8cca24 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, 2011 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2011, 2012 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
@@ -76,6 +76,7 @@
[(geiser-eval) (geiser-eval)]
[(geiser-no-values) (datum->syntax #f (void))]
[(add-to-load-path) (add-to-load-path (read))]
+ [(cd) (current-directory (read))]
[else form])]
[_ form])))