X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;ds=sidebyside;f=codegen.scm;fp=codegen.scm;h=c514cd1b4d34853523928c00314a0ffdb5825b90;hb=277cd3c8e4ad4c727e041bf870a79862640c39b3;hp=9ffee7739248956d3811a45b0205aeb64a683f32;hpb=e2081d0d8280f4c2f17fdf4cc7d3fb5f0b36c48b;p=scheme.git

diff --git a/codegen.scm b/codegen.scm
index 9ffee77..c514cd1 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -23,8 +23,8 @@
       (apply max sizes)))
   
   (case type
-    ['Int wordsize]
-    ['Bool wordsize]
+    ['int wordsize]
+    ['bool wordsize]
     [else
      (let ([adt (assoc type data-layouts)])
        (if adt