Commit 07ac5b13 authored by pfdietz's avatar pfdietz
Browse files

Added missing CLOSE calls

parent 17949028
......@@ -645,9 +645,11 @@
(unwind-protect
(write-line "abcdef" s2)
(close s2))
(setq s2 (open s1 :direction :input))
(equalt (read-line s2 nil) "abcdef")
)
(unwind-protect
(progn
(setq s2 (open s1 :direction :input))
(equalt (read-line s2 nil) "abcdef"))
(close s2)))
(close s1)
(delete-all-versions pn)
)))))
......@@ -965,9 +967,11 @@
(unwind-protect
(write-line "abcdef" s2)
(close s2))
(setq s2 (open s1 :direction :input))
(equalt (read-line s2 nil) "abcdef")
)
(unwind-protect
(progn
(setq s2 (open s1 :direction :input))
(equalt (read-line s2 nil) "abcdef"))
(close s2)))
(close s1)
(delete-all-versions pn)
)))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment