version 1.17, 1998/10/14 22:23:12
|
version 1.18, 1999/12/12 12:49:51
|
Line 65 interpret/compile: ctrl ( "<char>" -- c
|
Line 65 interpret/compile: ctrl ( "<char>" -- c
|
: force-open ( addr len -- fid ) |
: force-open ( addr len -- fid ) |
2dup r/w open-file 0< |
2dup r/w open-file 0< |
IF drop r/w create-file |
IF drop r/w create-file |
throw ELSE nip nip THEN ; |
throw ELSE nip nip THEN ; |
|
|
s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN] |
s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN] |
[IF] |
[IF] |