[nongnu] elpa/geiser-racket 0f063c5 087/191: ,cd for Racket REPL

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 0f063c5aebb81ff7e5b9966a0cf814e8c00c5281
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@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])))