let ls default to cwd

2005-09-12 17:21:15 +00:00 · 2005-09-12 17:21:15 +00:00 · 0f45f80db0
parent 07555260e1
commit 0f45f80db0
1 changed files with 4 additions and 1 deletions
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@ -182,7 +182,10 @@
             (reverse 
              (if (set? 'reverse-sort)
                  reverse
-                  (lambda (l) l))))
+                  (lambda (l) l)))
+             (paths (if (null? paths)
+                        (list (cwd))
+                        paths)))
        (reverse 
         (sort
          (apply