Changeset 7922 in project


Ignore:
Timestamp:
01/24/08 19:54:45 (12 years ago)
Author:
Kon Lovett
Message:

Chgd use of 'select' to case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/testbase/testbase.scm

    r7895 r7922  
    3939  (if (eq? (##sys#slot '##sys#arbitrary-unbound-symbol 0) (##sys#slot optsym 0))
    4040      ; then use the default setting
    41       (select optsym
    42         [('test::timing)       #f]
    43         [('test::filtering)    #f]
    44         [('test::catching)     #t]
    45         [('test::selecting)    #f]
    46         [('test::limiting)     #f]
     41      (case optsym
     42        [(test::timing)       #f]
     43        [(test::filtering)    #f]
     44        [(test::catching)     #t]
     45        [(test::selecting)    #f]
     46        [(test::limiting)     #f]
    4747        [else
    4848          (syntax-error 'testbase "unknown expansion option symbol" optsym)] )
Note: See TracChangeset for help on using the changeset viewer.