From ee15b2c09c2b85ee6ea99f4aa6f58191de9d535e Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 28 Apr 2020 15:10:25 -0700 Subject: Fix pwd --- Alpha/Shell.scm | 4 +--- 1 file changed, 1 insertion(+), 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))) -- cgit v1.2.3