From fda7e8bad5506c43f88304ced8e52079615c495a Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 12 Jan 2012 15:48:51 -0700 Subject: [PATCH] Fix behavior on rest arguments --- collects/planet/private/command.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/planet/private/command.rkt b/collects/planet/private/command.rkt index dad9767c20..4484de79bf 100644 --- 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