Changeset 13528 in project for release/4/box/trunk/tests/run.scm


Ignore:
Timestamp:
03/06/09 06:36:07 (11 years ago)
Author:
Kon Lovett
Message:

Rmvd keyword arg style. Chgd to all tag style for box types.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/box/trunk/tests/run.scm

    r13468 r13528  
    1717(test-group "Box Immutable"
    1818        (let ([tbox #f])
    19     (test-assert (make-box #f #:immutable? #t))
    20     (set! tbox (make-box #f #:immutable? #t))
     19    (test-assert (make-box #f #t))
     20    (set! tbox (make-box #f #t))
    2121    (test-assert (not (box-ref tbox)))
    2222    (test-error (box-set! tbox #t)) )
Note: See TracChangeset for help on using the changeset viewer.