export bool

Author: wedesoft

aiscm/core.scm

@@ -44,7 +44,7 @@
             ~ << >> % & | ^ ! && || le lt ge gt eq ne where typed-alloca build-phi add-incoming
             to-array get set rgb red green blue ensure-default-strides default-strides roll unroll
             crop dump rebase project element minor major sum product fill indices convolve dilate erode
-            warp reshape histogram mask unmask
+            warp reshape histogram mask unmask bool
             <void> <meta<void>>
             <scalar> <meta<scalar>>
             <structure> <meta<structure>>

tests/test_core.scm

@@ -40,7 +40,7 @@
   (test-eq "Create boolean type"
     <bool> (class-of (make <bool> #:value #t)))
   (test-eqv "Foreign type of boolean is boolean"
-    (+ int64 3) (foreign-type <bool>)))
+    bool (foreign-type <bool>)))
 
 (test-group "construct integer types"
   (for-each