diff options
| -rw-r--r-- | Alpha/Shell.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Alpha/Shell.scm b/Alpha/Shell.scm index 3f52fd2..b00b174 100644 --- a/Alpha/Shell.scm +++ b/Alpha/Shell.scm @@ -22,9 +22,7 @@ (popen/close-pipe port) ret)) -(define (pwd) - (regexp-substitute/global - #f "/home/ben" (getcwd) 'pre "~" 'post)) +(define pwd getcwd) (define (ls) (ftw/scandir (getcwd))) |