Store ADTs with only singletons in registers

[scheme.git] / ast.scm

diff --git a/ast.scm b/ast.scm
index eabad585fec27b4f6c83f3c747ca0c7925a80de2..c32e47e663d3e8fb2bbe10021eab404ad79c0cf9 100644 (file)
--- a/ast.scm
+++ b/ast.scm
@@ -25,7 +25,6 @@
    ((builtin? x) 'builtin)
    ((symbol? x) 'var)
    ((integer? x) 'int-literal)
-   ((boolean? x) 'bool-literal)
    ((string? x) 'string-literal)))
 
 (define (ast-traverse f x)