Typo

2008-10-06 00:20:24 -05:00 · 2008-10-06 00:20:24 -05:00 · 4ca06ae50f
parent 33d775890c
commit 4ca06ae50f
1 changed files with 1 additions and 1 deletions
--- a/basis/cpu/x86/architecture/architecture.factor
+++ b/basis/cpu/x86/architecture/architecture.factor
@ -69,7 +69,7 @@ M: x86 %prologue ( n -- )
    3 cells - decr-stack-reg ;

 : incr-stack-reg ( n -- )
-    dup 0 = [ ] [ stack-reg swap ADD ] if ;
+    dup 0 = [ drop ] [ stack-reg swap ADD ] if ;

 M: x86 %epilogue ( n -- ) cell - incr-stack-reg ;