some more reformattings, library support master

1 files changed, 7 insertions, 2 deletions

diff --git a/lib.lith b/lib.lith
index 3a66062..4cd5591 100644
--- a/lib.lith
+++ b/lib.lith
@@ -15,6 +15,10 @@
     (eq? (typeof i) 'integer))
 (define (number? n)
     (eq? (typeof n) 'number))
+(define (boolean? n)
+    (eq? (typeof n) 'boolean))
+(define (string? s)
+    (eq? (typeof s) 'string))
 
 (define (foldl f init lst)
     (if (nil? lst)
@@ -38,8 +42,6 @@
             (car lst)
             (last (cdr lst)))))
 
-(define (begin . body) (last body))
-
 (define (reverse lst)
     (foldl (lambda (a x) (cons x a)) () lst))
 
@@ -126,6 +128,9 @@
 
 (define (mod a b) (:% a b))
 
+(define-macro (begin a . body)
+    `((lambda () ,a . ,body)))
+
 (define-macro (cond . body)
     (if (nil? body)
         (error "cond: no else clause")