version 1.96, 2001/03/18 22:20:26
|
version 1.99, 2001/06/16 22:53:36
|
Line 808 ghost (next)
|
Line 808 ghost (next)
|
ghost unloop ghost ;S 2drop |
ghost unloop ghost ;S 2drop |
ghost lit ghost (compile) ghost ! 2drop drop |
ghost lit ghost (compile) ghost ! 2drop drop |
ghost (does>) ghost noop 2drop |
ghost (does>) ghost noop 2drop |
ghost (.") ghost (S") ghost (ABORT") 2drop drop ( " ) |
ghost (.") ghost (S") ghost (ABORT") 2drop drop |
ghost ' drop |
ghost ' drop |
ghost :docol ghost :doesjump ghost :dodoes 2drop drop |
ghost :docol ghost :doesjump ghost :dodoes 2drop drop |
ghost :dovar ghost :dodefer ghost :dofield 2drop drop |
ghost :dovar ghost :dodefer ghost :dofield 2drop drop |
Line 1579 Variable to-doc to-doc on
|
Line 1579 Variable to-doc to-doc on
|
IF |
IF |
s" " doc-file-id write-line throw |
s" " doc-file-id write-line throw |
s" make-doc " doc-file-id write-file throw |
s" make-doc " doc-file-id write-file throw |
|
Last-Header-Ghost @ >ghostname doc-file-id write-file throw |
tlast @ >image count 1F and doc-file-id write-file throw |
|
>in @ |
>in @ |
[char] ( parse 2drop |
[char] ( parse 2drop |
[char] ) parse doc-file-id write-file throw |
[char] ) parse doc-file-id write-file throw |
Line 2113 T has? peephole H [IF]
|
Line 2112 T has? peephole H [IF]
|
[ELSE] |
[ELSE] |
: compile: ( ghost -- ghost xt colon-sys ) :noname ; |
: compile: ( ghost -- ghost xt colon-sys ) :noname ; |
: ;compile ( ghost xt colon-sys -- ghost ) |
: ;compile ( ghost xt colon-sys -- ghost ) |
postpone ; drop ; immediate |
postpone ; drop ['] prim-resolved over >comp ! ; immediate |
[THEN] |
[THEN] |
|
|
: by ( -- ghost ) \ Name |
: by ( -- ghost ) \ Name |
Line 2405 Cond: NEXT restrict? sys? next, ;Cond
|
Line 2404 Cond: NEXT restrict? sys? next, ;Cond
|
|
|
: ," [char] " parse T string, align H ; |
: ," [char] " parse T string, align H ; |
|
|
Cond: ." restrict? compile (.") T ," H ;Cond ( " ) |
Cond: ." restrict? compile (.") T ," H ;Cond |
Cond: S" restrict? compile (S") T ," H ;Cond ( " ) |
Cond: S" restrict? compile (S") T ," H ;Cond |
Cond: ABORT" restrict? compile (ABORT") T ," H ;Cond ( " ) |
Cond: ABORT" restrict? compile (ABORT") T ," H ;Cond |
|
|
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
Cond: IS T ' >body H compile ALiteral compile ! ;Cond |
: IS T >address ' >body ! H ; |
: IS T >address ' >body ! H ; |
Line 2699 previous
|
Line 2698 previous
|
: .s .s ; |
: .s .s ; |
: bye bye ; |
: bye bye ; |
|
|
|
\ dummy |
|
|
|
: group source >in ! drop ; |
|
|
\ turnkey direction |
\ turnkey direction |
: H forth ; immediate |
: H forth ; immediate |
: T minimal ; immediate |
: T minimal ; immediate |