version 1.47, 2002/12/04 10:42:58
|
version 1.52, 2003/01/20 17:07:37
|
Line 25 decimal
|
Line 25 decimal
|
|
|
\ .( 12may93jaw |
\ .( 12may93jaw |
|
|
: .( ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren |
: .( ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren |
\G Compilation and interpretation semantics: Parse a string @i{ccc} |
\G Compilation and interpretation semantics: Parse a string @i{ccc} |
\G delimited by a @code{)} (right parenthesis). Display the |
\G delimited by a @code{)} (right parenthesis). Display the |
\G string. This is often used to display progress information during |
\G string. This is often used to display progress information during |
Line 236 variable span ( -- c-addr ) \ core-ext
|
Line 236 variable span ( -- c-addr ) \ core-ext
|
REPEAT |
REPEAT |
drop |
drop |
\ remember udp |
\ remember udp |
udp @ , ; |
udp @ , |
|
\ remember dyncode-ptr |
|
here ['] noop , compile-prim1 finish-code ; |
|
|
: marker! ( mark -- ) |
: marker! ( mark -- ) |
\ reset included files count; resize will happen on next add-included-file |
\ reset included files count; resize will happen on next add-included-file |
Line 263 variable span ( -- c-addr ) \ core-ext
|
Line 265 variable span ( -- c-addr ) \ core-ext
|
REPEAT |
REPEAT |
drop |
drop |
\ restore udp and dp |
\ restore udp and dp |
|
[IFDEF] forget-dyncode |
|
dup cell+ @ forget-dyncode 0= abort" gforth bug" |
|
[THEN] |
@ udp ! dp ! |
@ udp ! dp ! |
\ clean up vocabulary stack |
\ clean up vocabulary stack |
0 vp @ 0 |
0 vp @ 0 |