Changeset 11604 in project


Ignore:
Timestamp:
08/12/08 09:44:50 (13 years ago)
Author:
sjamaan
Message:

Rename copy-FOO to FOO-copy, as suggested by Felix

File:
1 edited

Legend:

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

    r11590 r11604  
    3333(test-group "updaters"
    3434  (let* ((c1 (make-complex field-1: 'foo))
    35          (c2 (copy-complex c1 field-1: 'bar))
    36          (c3 (copy-complex c1 field-2: 'qux)))
     35         (c2 (complex-copy c1 field-1: 'bar))
     36         (c3 (complex-copy c1 field-2: 'qux)))
    3737    (test 'foo (complex-field-1 c1))
    3838    (test 'two (complex-field-2 c1))
     
    5353  (defstruct ini-capture (uninitialized 1))
    5454  (define i1 (make-ini-capture))
    55   (test 1 (ini-capture-uninitialized (copy-ini-capture i1)))
    56   (test 2 (ini-capture-uninitialized (copy-ini-capture i1 uninitialized: 2))))
     55  (test 1 (ini-capture-uninitialized (ini-capture-copy i1)))
     56  (test 2 (ini-capture-uninitialized (ini-capture-copy i1 uninitialized: 2))))
Note: See TracChangeset for help on using the changeset viewer.