Return to history.fs CVS log | Up to [gforth] / gforth |
version 1.28, 2001/09/17 09:19:22 | version 1.29, 2002/09/14 08:20:19 |
---|---|
Line 72 interpret/compile: ctrl ( "<char>" -- c | Line 72 interpret/compile: ctrl ( "<char>" -- c |
nip nip | nip nip |
THEN ; | THEN ; |
s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN] | s" os-class" environment? [IF] s" unix" str= [ELSE] true [THEN] |
[IF] | [IF] |
: history-file ( -- addr u ) | : history-file ( -- addr u ) |
s" GFORTHHIST" getenv dup 0= IF | s" GFORTHHIST" getenv dup 0= IF |