|
|
1.1 ! root 1: # This program tests the "basis" of the Icon system: iconx/start.s, ! 2: # rt/setbound.s, lib/invoke.s, iconx/interp.s, lib/efail.s, and ! 3: # lib/pfail.s ! 4: ! 5: procedure main() ! 6: call(foo(1,2,3,4,5,6,7)) ! 7: call(foo(1,2)) ! 8: end ! 9: ! 10: procedure call(x) ! 11: fail ! 12: end ! 13: ! 14: procedure foo(a,b,c,d,e) ! 15: write(image(a)) ! 16: write(image(b)) ! 17: write(image(c)) ! 18: write(image(d)) ! 19: write(image(e)) ! 20: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.