branch: elpa/geiser-racket
commit 0f063c5aebb81ff7e5b9966a0cf814e8c00c5281
Author: Jose Antonio Ortega Ruiz <j...@gnu.org>
Commit: Jose Antonio Ortega Ruiz <j...@gnu.org>
,cd for Racket REPL
It's not perfect and undocumented, but useful nonetheless.
---
geiser/enter.rkt | 4 +---
geiser/user.rkt | 3 ++-
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/geiser/enter.rkt b/geiser/enter.rkt
index dbad12b..cb33a55 100644
--- a/geiser/enter.rkt
+++ b/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/geiser/user.rkt b/geiser/user.rkt
index 4479b42..c8cca24 100644
--- a/geiser/user.rkt
+++ b/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])))
