gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.60, 2003/10/16 18:48:04	version 1.61, 2003/11/09 20:47:49
Line 269 has? peephole [IF]	Line 269 has? peephole [IF]
: dodoes, ( -- )	: dodoes, ( -- )
cfalign here /does-handler allot does-handler! ;	cfalign here /does-handler allot does-handler! ;

: (compile) ( -- ) \ gforth	: (compile) ( -- ) \ gforth-obsolete: dummy
r> dup cell+ >r @ compile, ;	( r> dup cell+ >r @ compile, ) ;

\ \ ticks	\ \ ticks

Line 307 has? peephole [IF]	Line 307 has? peephole [IF]
if	if
drop compile,	drop compile,
else	else
dup ['] compile, =	swap POSTPONE aliteral compile,
if
drop POSTPONE (compile) a,
else
swap POSTPONE aliteral compile,
then
then ;	then ;

: POSTPONE ( "name" -- ) \ core	: POSTPONE ( "name" -- ) \ core