Updated readme.

[scheme.forth.jl.git] / src / scheme-library.scm

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index 67ab483..78414ac 100644 (file)
--- 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)