Fix typo

[scheme.git] / codegen.scm

diff --git a/codegen.scm b/codegen.scm
index 9ffee7739248956d3811a45b0205aeb64a683f32..c514cd1b4d34853523928c00314a0ffdb5825b90 100644 (file)
--- 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