version 1.39, 1996/09/19 22:17:31
|
version 1.40, 1996/09/24 19:15:02
|
Line 381 VARIABLE ^imm
|
Line 381 VARIABLE ^imm
|
s" crossdoc.fd" r/w create-file throw value doc-file-id |
s" crossdoc.fd" r/w create-file throw value doc-file-id |
\ contains the file-id of the documentation file |
\ contains the file-id of the documentation file |
|
|
: \G ( -- ) |
: T-\G ( -- ) |
source >in @ /string doc-file-id write-line throw |
source >in @ /string doc-file-id write-line throw |
source >in ! drop ; immediate |
postpone \ ; |
|
|
Variable to-doc to-doc on |
Variable to-doc to-doc on |
|
|
Line 398 Variable to-doc to-doc on
|
Line 398 Variable to-doc to-doc on
|
[char] ) parse doc-file-id write-file throw |
[char] ) parse doc-file-id write-file throw |
s" )" doc-file-id write-file throw |
s" )" doc-file-id write-file throw |
[char] \ parse 2drop |
[char] \ parse 2drop |
POSTPONE \g |
T-\G |
>in ! |
>in ! |
THEN ; |
THEN ; |
|
|
Line 526 Cond: chars ;Cond
|
Line 526 Cond: chars ;Cond
|
: alit, ( n -- ) compile lit T A, H ; |
: alit, ( n -- ) compile lit T A, H ; |
|
|
>TARGET |
>TARGET |
|
Cond: \G T-\G ;Cond |
|
|
Cond: Literal ( n -- ) restrict? lit, ;Cond |
Cond: Literal ( n -- ) restrict? lit, ;Cond |
Cond: ALiteral ( n -- ) restrict? alit, ;Cond |
Cond: ALiteral ( n -- ) restrict? alit, ;Cond |
|
|
Line 919 cell constant cell
|
Line 921 cell constant cell
|
\ include bug5.fs |
\ include bug5.fs |
\ only forth also minimal definitions |
\ only forth also minimal definitions |
|
|
: \ postpone \ ; |
: \ postpone \ ; immediate |
: \G postpone \G ; |
: ( postpone ( ; immediate |
: ( postpone ( ; |
|
: include bl word count included ; |
: include bl word count included ; |
: .( [char] ) parse type ; |
: .( [char] ) parse type ; |
: cr cr ; |
: cr cr ; |