Slava Pestov 2008-10-06 00:20:24 -05:00
parent 33d775890c
commit 4ca06ae50f
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;