Fix more things.

This commit is contained in:
Brad Nelson
2024-11-14 23:05:24 -08:00
parent 4ed9475c81
commit 0bf95dc6c3
2 changed files with 34 additions and 27 deletions

View File

@ -18,8 +18,7 @@ also arrays
: slurp ( a: filename -- a: content )
top range r/o open-file throw >r adrop
r@ file-size throw ( sz )
STRING array
r@ file-size throw STRING array
top range r@ read-file throw drop
r> close-file throw
;