Fix behavior on rest arguments

2012-01-12 15:48:51 -07:00 · 2012-01-12 15:48:51 -07:00 · fda7e8bad5
commit fda7e8bad5
parent 2d0d4823a7
1 changed files with 1 additions and 1 deletions
--- a/collects/planet/private/command.rkt
+++ b/collects/planet/private/command.rkt
@ -104,7 +104,7 @@
    [(null? pil) '()]
    [(pair? pil) (cons (pimap f (car pil))
                       (pimap f (cdr pil)))]
-    [else (f pil)]))
+    [else (list (f pil))]))

 ;; wrap-to-count : string nat -> (listof string)
 ;; breaks str into substrings such that no substring