Return to gc1.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

researchv10 Dan Cross

#  This program tests rt/gollect.s and rt/sweep.c

procedure main()
   every 1 to 1000 do list(1000)
   collect()
   every s := repl("x",1 to 1000) do {
      cset(string(&lcase))
      t := table()
      set([s])
      s[2 : 5]
      }
end

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