steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove debug messages

release
Slava Pestov 2007-10-09 00:40:54 -04:00
parent 7bbd169b2a
commit 236f505e14
1 changed files with 1 additions and 2 deletions
core/generator

3
core/generator/generator.factor
View File

@ -130,7 +130,7 @@ UNION: #terminal
M: node generate-node drop iterate-next ; M: node generate-node drop iterate-next ;
: %call ( word -- ) : %call ( word -- )
dup primitive? [ "Call prim: " write dup . %call-primitive ] [ %call-label ] if ; dup primitive? [ %call-primitive ] [ %call-label ] if ;
: %jump ( word -- ) : %jump ( word -- )
{ {
@ -138,7 +138,6 @@ M: node generate-node drop iterate-next ;
drop current-label-start get %jump-label drop current-label-start get %jump-label
] } ] }
{ [ dup primitive? ] [ { [ dup primitive? ] [
"Jump prim: " write dup .
%epilogue-later %jump-primitive %epilogue-later %jump-primitive
] } ] }
{ [ t ] [ { [ t ] [