From e59277504e7b7441729a2c6a097c72eb4142704d Mon Sep 17 00:00:00 2001
From: glenda <glenda@cirno>
Date: Sun, 11 Sep 2022 09:42:42 +0000
Subject: Better handling of shy results in the session

---
 runtime/start.apl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'runtime/start.apl')

diff --git a/runtime/start.apl b/runtime/start.apl
index d65d0bc..64b8be8 100644
--- a/runtime/start.apl
+++ b/runtime/start.apl
@@ -8,9 +8,11 @@
 	}
 	handleMain←{
 		0::⍺
-		data←⍵
-		⎕rawio←data
-		⎕rawio←⎕ucs 10
+		(shy data)←⍵
+		_←{
+			⎕rawio←data
+			⎕rawio←⎕ucs 10
+		} IF ~shy
 		⎕rawio←prompt
 		≢prompt
 	}
@@ -28,8 +30,7 @@
 		data←⍵
 		⎕rawio←data
 		⎕rawio←⎕ucs 10
-		⎕rawio←prompt
-		≢prompt
+		0
 	}
 	handleQuoteQuad←{
 		0::⍺
-- 
cgit v1.2.3