Re: [Bug-apl] ⎕NL 'var_name'

[Blake McBride]

I think you are confusing ⎕NC and ⎕NL

On Tue, Mar 10, 2015 at 7:16 PM, Christian Robert <address@hidden> wrote:

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
             ^           ^