summaryrefslogtreecommitdiff
path: root/sanctuary.fs
diff options
context:
space:
mode:
authorkitty <nepeta@canaglie.net>2026-04-21 16:11:28 +1000
committerkitty <nepeta@canaglie.net>2026-04-21 16:11:28 +1000
commit1f04fbeead12b9d7a2453ece7de58172ea5acb3e (patch)
treeb87f0b754733ddc5b94c25979bc0dd93e2c475e1 /sanctuary.fs
parentca614532a94053d78385cc2cfa447ba448291d22 (diff)
basic tests
Diffstat (limited to 'sanctuary.fs')
-rw-r--r--sanctuary.fs2
1 files changed, 1 insertions, 1 deletions
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 ;