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