X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fparse.lisp;h=70e141d249e30fd398908497436e136c8d53be41;hp=10e2f08aa25575207dab84d1433eae82e919188a;hb=471de83db1aee70065808cbc061867e3320bf4b7;hpb=9621a2a05ca412a91fae1df8e43715f7579cd34c

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 10e2f08..70e141d 100644
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -45,7 +45,7 @@
       (prim-name prim)
       (mapcar
        #'help-arg
-       (prim-args prim) 
+       (prim-args prim)
        (butlast parsed-remainder (- (length parsed-remainder) num-args))))
      (nthcdr num-args parsed-remainder))))
   (t (error "Couldn't parse ~S" lexed-ast))))
@@ -54,8 +54,8 @@
  (case arg-type
   (:command-block
    (if (not (and (consp arg) (eql 'block (car arg))))
-       (error "Required a block, but found a ~A" arg)
-       (cons :command-block (cdr arg))))
+    (error "Required a block, but found a ~A" arg)
+    (cons :command-block (cdr arg))))
   (t arg)))
 
 (defun parse-block (tokens)