From 1f04fbeead12b9d7a2453ece7de58172ea5acb3e Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Tue, 21 Apr 2026 16:11:28 +1000
Subject: basic tests

---
 sanctuary.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sanctuary.fs')

diff --git a/sanctuary.fs b/sanctuary.fs
index 43e632c..6f94aca 100644
--- a/sanctuary.fs
+++ b/sanctuary.fs
@@ -357,7 +357,7 @@ privatise
 	1 -to include-depth  r> to source-id ;
 : included ( a u -- )  s>z r/o open-file 0= if
 		dup >r include-file
-		r> close-file
+		r> close-file drop
 	else
 		drop abort" file open for include failed"
 	then ;
-- 
cgit v1.2.3