From d0444e62cbae194f6b331e9030cedcfc83b79da4 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sun, 8 Mar 2026 17:52:50 +1100
Subject: include{,d}

---
 jefs.fs | 4 ++--
 1 file 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 {{{
-- 
cgit v1.2.3