From de47bbef5463821681c5d12d281b21171d2c7ea3 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Sat, 9 Nov 2024 10:35:42 +0100
Subject: [PATCH] Re-enable closing incfile after include

---
 8080/CPM/src/vf-file1.fth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/8080/CPM/src/vf-file1.fth b/8080/CPM/src/vf-file1.fth
index a6a4de9..1766322 100644
--- a/8080/CPM/src/vf-file1.fth
+++ b/8080/CPM/src/vf-file1.fth
@@ -73,6 +73,6 @@
   incfile push  isfile@ incfile !
   savetib >r  interpret-via-tib
   \ ." before isfile@ closefile"
-  \ isfile@ closefile
+  incfile @ 2+ closefile Abort" error closing file"
   \ ." after isfile@ closefile"
   r> restoretib ;