--- gforth/kernel/vars.fs 1999/03/23 20:24:27 1.14 +++ gforth/kernel/vars.fs 1999/05/05 12:04:41 1.16 @@ -32,7 +32,9 @@ hex \ everything now hex! 0 Constant false ( -- f ) \ core-ext \G CONSTANT: @var{f} is a cell with all bits clear. +[IFUNDEF] cell 1 cells Constant cell ( -- u ) \ gforth +[THEN] 1 floats Constant float ( -- u ) \ gforth 20 Constant bl ( -- c-char ) \ core @@ -112,7 +114,7 @@ AUser "error 0 "error ! User >in ( -- a-addr ) \ core \G USER VARIABLE: @var{a-addr} is the address of a cell containing the \G char offset from the start of the terminal input buffer to the - \G start of the parse area + \G start of the parse area. 0 >in ! \ char number currently processed in tib [THEN] has? file [IF]