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

View File

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