summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--jefs.fs4
1 files changed, 2 insertions, 2 deletions
diff --git a/jefs.fs b/jefs.fs
index c050449..d1f582d 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -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 {{{