Fix typechecking with bindings

[scheme.git] / codegen.scm

diff --git a/codegen.scm b/codegen.scm
index 6203cfdef4f02d367c512517298ca890ce75f384..985ad44a41a24eeb32abd07a8740fa825518b9f7 100644 (file)
--- a/codegen.scm
+++ b/codegen.scm
@@ -492,7 +492,7 @@
          (if (eqv? 'var (ast-type x))
              (list (cons x inner-offset))
              (begin
-               (emit "cmp $~a, ~a(%rbp)" x inner-offset)
+               (emit "cmpq $~a, ~a(%rbp)" x inner-offset)
                (emit "jne ~a" jne-label)
                '() )))))