diff options
| author | glenda <glenda@cirno> | 2022-09-11 09:42:42 +0000 |
|---|---|---|
| committer | glenda <glenda@cirno> | 2022-09-11 09:42:42 +0000 |
| commit | e59277504e7b7441729a2c6a097c72eb4142704d (patch) | |
| tree | fd84f5e3ce42027efbf2cccbf1a5dd67595c3ca4 /quadnames.c | |
| parent | 759d2d541d943fe95138789477fa6faddf6e3e08 (diff) | |
Better handling of shy results in the session
Diffstat (limited to 'quadnames.c')
| -rw-r--r-- | quadnames.c | 8 |
1 files changed, 6 insertions, 2 deletions
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 */ |