| try ( c-addr u ) |
try ( c-addr u ) |
| 2dup open-fpath-file throw |
2dup open-fpath-file throw |
| rot close-file throw 2dup file-status throw bin open-file throw |
rot close-file throw 2dup file-status throw bin open-file throw |
| >r 2drop r> 0 |
>r 2drop r> |
| restore endtry |
endtry-iferror ( c-addr u ior ) |
| ?dup-if ( c-addr u ior ) |
|
| >r 2dup file-status nip 0= r> and throw \ does it really not exist? |
>r 2dup file-status nip 0= r> and throw \ does it really not exist? |
| r/w bin create-file throw |
r/w bin create-file throw |
| then |
then |
