X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-library.scm;h=78414ac03e65d441de87d7d13bd48b51f0b8c8c3;hp=67ab483b2ea5c90b81355135767f4b374bd8f6a0;hb=5c89ece636005a3008eb27a80b0c805b4d0e4c84;hpb=724ff46a1b082bef48b310a85d5a82037c2a914c

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index 67ab483..78414ac 100644
--- a/src/scheme-library.scm
+++ b/src/scheme-library.scm
@@ -122,6 +122,10 @@
                  (expand-or-expressions expressions))
    ))
 
+;; not
+
+(define-macro (not x)
+              `(if ,x #f #t))
 
 ;; FUNCTIONAL PROGRAMMING
 
@@ -314,6 +318,9 @@
 
 ;; LISTS
 
+; List creation
+(define (list . args) args)
+
 ; Return number of items in list
 (define (length l)
   (define (iter a count)