diff options
Diffstat (limited to 'compiler/standardClient.ey')
| -rw-r--r-- | compiler/standardClient.ey | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey index d55c23e..c842b84 100644 --- a/compiler/standardClient.ey +++ b/compiler/standardClient.ey @@ -390,6 +390,7 @@ bor bor ==:RWMASK 64 ==:OCREAT + 512 ==:OTRUNC 1024 ==:OAPPEND 1 ==:PROTREAD @@ -419,6 +420,8 @@ { flags RWMASK bnot band RDWR bor =flags } /readwrite deff { flags OCREAT bor =flags } /creating deff { flags OAPPEND bor =flags } /appending deff + { flags OTRUNC bor =flags } /truncating deff + { ==path fd 0 ge { "file already open" die } rep path "\0" cat flags mode 0 0 0 OPEN sys .asm .syscall -- _ =fd |