|
|
1.1 root 1: tab := create {write("entering tab"); 1 | 2 | 3} ----> co-expression(0)
2: trim := create {write("entering trim"); @tab | (main @:= tab)} ----> co-expression(0)
3: entering trim
4: entering tab
5: @trim ----> 1
6: @trim ----> 2
7: co-expression(2)
8: write(image(trim)) ----> "co-expression(2)"
9: co-expression(2)
10: write(image(tab)) ----> "co-expression(2)"
11: 2
12: write(image(main)) ----> "2"
13: Run-time error 118 at line 16 in std84.icn
14: co-expression expected
15: offending value: 2
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.