X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=codegen.scm;h=985ad44a41a24eeb32abd07a8740fa825518b9f7;hp=6203cfdef4f02d367c512517298ca890ce75f384;hb=3d94d4500167a8327473e15cf477727968ee36a2;hpb=0db4aa6c791e5ed27bfd9c4461e7a5337ee699e1

diff --git a/codegen.scm b/codegen.scm
index 6203cfd..985ad44 100644
--- 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)
 		'() )))))