X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-library.scm;h=faa92884dc1fe17b13e8623aaa8344aec01d87ba;hp=8260f90eb76b4686c00b638f95d693fdfbae134d;hb=f675338306652fc8accf3c5ba154b915d0d24cdc;hpb=06e8259c96d3282d8904006aa9137ed563d8fe86

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index 8260f90..faa9288 100644
--- 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)