Return to esusp2.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port

Initial revision

#  This program tests lib/esusp.s.

procedure main()
   every write(0 | foo(1) | foo(2) | foo(5 | 6 | 7))
end

procedure foo(i)
   if i % 2 = 1 then return i else fail
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.