diff options
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 */ |