version 1.104, 2010/05/02 16:21:32
|
version 1.105, 2010/05/02 18:15:14
|
Line 294 has? primcentric [IF]
|
Line 294 has? primcentric [IF]
|
do;abicode: OF ['] ;abi-code-exec peephole-compile, , EXIT ENDOF |
do;abicode: OF ['] ;abi-code-exec peephole-compile, , EXIT ENDOF |
\ code words and ;code-defined words (code words could be |
\ code words and ;code-defined words (code words could be |
\ optimized, if we could identify them): |
\ optimized, if we could identify them): |
dup in-dictionary? IF |
dup in-dictionary? IF ( xt code-address ) |
drop ['] lit-execute peephole-compile, , EXIT |
over >body = if ( xt ) |
|
\ definitely a CODE word |
|
peephole-compile, EXIT THEN |
|
\ not sure, might be a ;CODE word |
|
['] lit-execute peephole-compile, , EXIT |
\ drop POSTPONE literal ['] execute peephole-compile, EXIT |
\ drop POSTPONE literal ['] execute peephole-compile, EXIT |
THEN |
THEN |
ENDCASE |
ENDCASE |