diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/demo.apl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tests/demo.apl b/tests/demo.apl index 00d2fbf..57f5e5d 100644 --- a/tests/demo.apl +++ b/tests/demo.apl @@ -5,10 +5,9 @@ ⍝ even though one does the computation in a different thread. iotaServer←{ - msg←1⍨⍇0 + msg←1⍨⍇⍬ msg≡'stop': ⎕←'Bye bye from indexer' (from num)←msg - num<0: ∇⍵⊣ ('some slow result'⊣⎕DL 2)⍈from _←(⍳num)⍈from ∇⍵ } @@ -28,16 +27,13 @@ flush←{ ⍺←0 12::⍺ msg←1⍨⍇0 + _←⎕←'Flush' ⍺ msg (⍺+1)∇⍵ } iota←{ - ⍺←⍬ ⍝ No timeout by default 11::'Sorry, the iota server is not running' 12::'Sorry, the iota server was too slow to respond' - ⍝ Sending messages to a nonexisting thread throws a domain error (11) - ⍝ And if a timeout happens, an error 12 will happen. - _←flush '' _←(⎕self ⍵)⍈id 1⍨⍇⍺ } |