X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=ast.scm;h=c32e47e663d3e8fb2bbe10021eab404ad79c0cf9;hp=eabad585fec27b4f6c83f3c747ca0c7925a80de2;hb=639c992ea2c89ef0b6421279a76e637c7f469517;hpb=fff1029008b7399f597e0227fff2bf05b8a27b3c

diff --git a/ast.scm b/ast.scm
index eabad58..c32e47e 100644
--- 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)