summaryrefslogtreecommitdiff
path: root/sanctuary.fs
diff options
context:
space:
mode:
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 ;