include{,d}

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 {{{