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

---
 quadnames.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'quadnames.c')

diff --git a/quadnames.c b/quadnames.c
index f00de5e..0727d3e 100644
--- a/quadnames.c
+++ b/quadnames.c
@@ -169,12 +169,16 @@ void
 outputmain(Datum *d)
 {
 	Rune *str = ppdatum(d);
-	Array *strarray = mkrunearray(str);
+	Array *data = allocarray(AtypeArray, 1, 2);
+	data->shape[0] = 2;
+	data->arraydata[0] = mkscalarint(d->shy);
+	data->arraydata[1] = mkrunearray(str);
 	if(session)
-		rundfn(L"0::⎕RAWIO←⍶ ⋄ ('→' ⍺) ⍈ ⍵", d, nil, strarray, session);
+		rundfn(L"0::⎕RAWIO←⍶ ⋄ ('→' (⍺)) ⍈ ⍵", d, nil, data, session);
 	else
 		setquadrawio(d);
 	free(str);
+	freearray(data);
 }
 
 /* ⎕RAWIO */
-- 
cgit v1.2.3