plsql: Fix readline/output async. Improve arg mode.

[jackhill/mal.git] / plsql / step2_eval.sql

diff --git a/plsql/step2_eval.sql b/plsql/step2_eval.sql
index 2373de3..a8e6aa8 100644 (file)
--- a/plsql/step2_eval.sql
+++ b/plsql/step2_eval.sql
@@ -161,7 +161,8 @@ BEGIN
             END IF;
 
             EXCEPTION WHEN OTHERS THEN
-                IF SQLCODE = -20001 THEN  -- io streams closed
+                IF SQLCODE = -20001 THEN  -- io read stream closed
+                    io.close(1);  -- close output stream
                     RETURN 0;
                 END IF;
                 io.writeline('Error: ' || SQLERRM);