[Bug-apl] ⎕NL 'var_name'

[Christian Robert]

Hi,

I'm pretty sure this was working a few days ago to test if a variable has a 
value or not at entry to a function.

Is it broken or I miss something ?

thanks,

Xtian.


      ∇Time[⎕]∇
    ∇
[0]   z←ncpu Time what;⎕io;start;stop;day;old_ncpu
[1]   →(1=⎕NL 'ncpu')/already_set
[2]     ncpu←1 ⍝ the default
[3]  already_set:
[4]   ⎕io←0
[5]   start←¯5↑⎕ts
[6]   day←start[0]
[7]   start ← 32 24 60 60 1000 ⊥ start
[8]   old_ncpu←⎕SYL [25;1]
[9]   ⍎what
[10]  stop←¯5↑⎕ts
[11]  ⎕SYL [25;1]← old_ncpu
[12]  →(stop[0]=day)/ok
[13]    stop[0]←stop[0]+1
[14] ok:
[15]  stop ← 32 24 60 60 1000 ⊥ stop
[16]  z←(⍕(stop-start)÷1000),' seconds at num core = ',(⍕⎕syl[25;1]),' of ', 
⍕⎕syl[24;1]
    ∇
      Time 'z←⍳1000'
DOMAIN ERROR
Time[1]  →(1=⎕NL 'ncpu')/already_set
             ^           ^