args are now stored with their symbols instead of ther string identifiers

bin/pre.slime

@@ -98,7 +98,7 @@ condition is false."
 
 (construct-list
   i <- '(1 2 3 4 5 6 7 8)
-  when (evenp i)
+  if (= 0 (% i 2))
   yield i)
 "
   (define (append-map f ll)
@@ -116,8 +116,8 @@ condition is false."
      ((= () (rest body)) (first body))
      ((= (first (rest body)) '<-)
       `(,append-map (lambda (,(first body)) (list ,(rec (rest (rest (rest body)))))) ,(first (rest (rest body)))))
-     ((= (first body) 'when)
-      `(if ,(first (rest body)) ,(rec (rest (rest body)))))
+     ((= (first body) 'if)
+      `(when ,(first (rest body)) ,(rec (rest (rest body)))))
      ((= (first body) 'yield)
       (first (rest body)))
      (else (error "Not a do-able expression"))))