Added NOT and fixed PROCEDURE?

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

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index 8260f90..faa9288 100644 (file)
--- a/src/scheme-library.scm
+++ b/src/scheme-library.scm
@@ -82,6 +82,10 @@
 (define exact? #t)
 (define inexact? #t)
 
+; Logic
+
+(define (not x) (if x #f #t))
+
 ;; LISTS
 
 (define (list . args) args)