Store ADTs with only singletons in registers

[scheme.git] / stdlib.scm

diff --git a/stdlib.scm b/stdlib.scm
new file mode 100644 (file)
index 0000000..0cf2917
--- /dev/null
+++ b/stdlib.scm
@@ -0,0 +1,4 @@
+(define stdlib
+  '(
+    (data Bool [false] [true]) ; this relies on false being 0, true being 1
+    ))