[Bug-apl] ⎕fio

[Christian Robert]

      ∇Execute[⎕]∇
    ∇
[0]   z←Execute cmd;⎕io;fh
[1]   ⎕io←0
[2]   fh ← ⎕FIO[24] cmd
[3]   z←⎕av[⎕fio [8] fh]
[4]  Loop: →(0≠⎕FIO[10] fh)/Fini
[5]   z←z,⎕av[⎕fio [8] fh]
[6]   →Loop
[7]  Fini: ⎕FIO[25] fh
[8]   ⊃⊃z
    ∇
      )save
2016-03-05  00:20:57 (GMT-5) CONTINUE

      D Execute 'date'
0
sam mar  5 00:33:32 EST 2016

┌29───────────────────────────┐
│sam mar  5 00:33:32 EST 2016
│
└─────────────────────────────┘


I do not understand why it repeat the result twice. one via stdout and one via 
boxing as I can guess.



      ∇Execute[⎕]∇
    ∇
[0]   z←Execute cmd;⎕io;fh
[1]   ⎕io←0
[2]   fh ← ⎕FIO[24] cmd
[3]   z←⎕av[⎕fio [8] fh]
[4]  Loop: →(0≠⎕FIO[10] fh)/Fini
[5]   z←z,⎕av[⎕fio [8] fh]
[6]   →Loop
[7]  Fini: ⎕FIO[25] fh
[8]   ⊃⊃z
    ∇
      )save
2016-03-05  00:20:57 (GMT-5) CONTINUE

      ⎕cr 'Execute'
z←Execute cmd;⎕io;fh
⎕io←0
fh ← ⎕FIO[24] cmd
z←⎕av[⎕fio [8] fh]
Loop: →(0≠⎕FIO[10] fh)/Fini
z←z,⎕av[⎕fio [8] fh]
→Loop
Fini: ⎕FIO[25] fh
⊃⊃z