1 files changed, 4 insertions, 0 deletions
diff --git a/mew.scm b/mew.scm
index f70fbee..4fe649d 100644
--- a/mew.scm
+++ b/mew.scm
@@ -1,6 +1,7 @@
 (module mew
   (export
      act accumulate andloc at
+     boolean
      comp
      dec def del-at div
      empty? eof esc
@@ -94,6 +95,9 @@
   (define (dec i)
     (- i 1))
 
+  (define (boolean x)
+    (not (not x)))
+
   (define <>?
     (case-lambda
       ((a b) (not (equal? a b)))