diff options
| -rw-r--r-- | jefs.fs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -351,8 +351,8 @@ make line-buffer line-buffer-length allot ?inc-depth 0 cbuffer-used ! 0 cbuffer->in ! source-id cbuffer-fd ! begin refill while interpret repeat 1 -to include-depth r> to source-id ; -: included ( a u -- ) ; -: include ( "path" -- ) ; +: included ( a u -- ) s>z r/o swap open-file ?dup 0= if include-file else .errno quit then ; +: include ( "path" -- ) parse included ; \ }}} \ TERMINAL CONTROL {{{ |
