gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.99, 2010/01/08 18:54:34	version 1.100, 2010/04/05 22:17:56
Line 289 has? primcentric [IF]	Line 289 has? primcentric [IF]
douser: OF >body @ ['] useraddr peephole-compile, , EXIT ENDOF	douser: OF >body @ ['] useraddr peephole-compile, , EXIT ENDOF
dodefer: OF >body ['] lit-perform peephole-compile, , EXIT ENDOF	dodefer: OF >body ['] lit-perform peephole-compile, , EXIT ENDOF
dofield: OF >body @ ['] lit+ peephole-compile, , EXIT ENDOF	dofield: OF >body @ ['] lit+ peephole-compile, , EXIT ENDOF
	doabicode: OF >body ['] abi-call peephole-compile, , EXIT ENDOF
\ dofield: OF >body @ POSTPONE literal ['] + peephole-compile, EXIT ENDOF	\ dofield: OF >body @ POSTPONE literal ['] + peephole-compile, EXIT ENDOF
\ code words and ;code-defined words (code words could be optimized):	\ code words and ;code-defined words (code words could be optimized):
dup in-dictionary? IF drop POSTPONE literal ['] execute peephole-compile, EXIT THEN	dup in-dictionary? IF drop POSTPONE literal ['] execute peephole-compile, EXIT THEN