Return to gc1.icn CVS log

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

Annotation of researchv10dc/cmd/icon/tests/gc1.icn, revision 1.1

1.1     ! root        1: #  This program tests rt/gollect.s and rt/sweep.c
        !             2: 
        !             3: procedure main()
        !             4:    every 1 to 1000 do list(1000)
        !             5:    collect()
        !             6:    every s := repl("x",1 to 1000) do {
        !             7:       cset(string(&lcase))
        !             8:       t := table()
        !             9:       set([s])
        !            10:       s[2 : 5]
        !            11:       }
        !            12: end

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