From e01e5db4e97a2ceade3c8596d5d96435a25673dc Mon Sep 17 00:00:00 2001
From: wes <wjak56@gmail.com>
Date: Sat, 21 Apr 2012 18:35:38 -0400
Subject: [PATCH] fixed formatting to make more pretty

---
 commands.rkt | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/commands.rkt b/commands.rkt
index 5947285..e1b5bdd 100644
--- a/commands.rkt
+++ b/commands.rkt
@@ -39,8 +39,12 @@
   (match (allowed?)
     [#f "Please try again in a few minutes"]
     [_ (match (parse-exclamation command)
-    [(list-rest "set" args) (submit-question (caar args) (string-join (cdar args) " "))
-                            "Done!"]
+    [(list-rest "set" args) (match args
+                              ; this part checks if the right number of arguments are there
+                              [(list (list name) (list-rest _ text)) 
+                               (submit-question name (string-join text " "))
+                               "Done!"]
+                              [_ 'nil])]
     [(list-rest "alias" (list args)) (make-alias (first args) (second args))]
     [(list-rest name _) (get-question name)]
          [_ 'nil])]))