add not, if.

scm.mes

@@ -64,3 +64,14 @@
         ((null? r) (cons (f (car l)) (map f (cdr l))))
         ((null? (cdr r))
          (cons (f (car l) (caar r)) (map f (cdr l) (cdar r))))))
+
+(define (not x)
+  (cond (x #f)
+        (#t #t)))
+
+(define-macro (if expr then . else)
+  (cond ((not (eq? (c:eval expr (current-module)) #f))
+         then)
+        (#t
+         (cond ((pair? else) (car else))
+               (#t *unspecified*)))))

test.mes

@@ -124,4 +124,11 @@
 (display (= 3 '3))
 (newline)
 
+(display (if #t 'true))
+(newline)
+(display (if (eq? 0 '0) 'true 'false))
+(newline)
+(display (if (= 1 2) 'true 'false))
+(newline)
+
 '()