Changeset 11782 in project


Ignore:
Timestamp:
08/27/08 20:26:46 (12 years ago)
Author:
sjamaan
Message:

Changed the name of FOO-copy to update-FOO, tagged 1.2 and bumped trunk to 1.3

Location:
release/4/defstruct
Files:
5 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/defstruct/tags/1.2/defstruct.scm

    r11759 r11782  
    4949                                   f)) fields))
    5050           (make (string->symbol (conc "make-" type-name)))
    51            (copy (string->symbol (conc type-name "-copy")))
     51           (copy (string->symbol (conc "update-" type-name)))
    5252           (set  (string->symbol (conc "set-" type-name "!")))
    5353           (predicate (string->symbol (conc type-name "?")))
  • release/4/defstruct/tags/1.2/tests/run.scm

    r11759 r11782  
    2929(test-group "updaters"
    3030  (let* ((c1 (make-complex field-1: 'foo))
    31          (c2 (complex-copy c1 field-1: '()))
    32          (c3 (complex-copy c1 field-2: 'qux)))
     31         (c2 (update-complex c1 field-1: '()))
     32         (c3 (update-complex c1 field-2: 'qux)))
    3333    (test 'foo (complex-field-1 c1))
    3434    (test 'two (complex-field-2 c1))
     
    4949  (defstruct ini-capture (uninitialized 1))
    5050  (define i1 (make-ini-capture))
    51   (test 1 (ini-capture-uninitialized (ini-capture-copy i1)))
    52   (test 2 (ini-capture-uninitialized (ini-capture-copy i1 uninitialized: 2)))
     51  (test 1 (ini-capture-uninitialized (update-ini-capture i1)))
     52  (test 2 (ini-capture-uninitialized (update-ini-capture i1 uninitialized: 2)))
    5353  (set-ini-capture! i1 uninitialized: 'uninitialized)
    5454  (test 'uninitialized (ini-capture-uninitialized i1)))
  • release/4/defstruct/trunk/defstruct.scm

    r11759 r11782  
    4949                                   f)) fields))
    5050           (make (string->symbol (conc "make-" type-name)))
    51            (copy (string->symbol (conc type-name "-copy")))
     51           (copy (string->symbol (conc "update-" type-name)))
    5252           (set  (string->symbol (conc "set-" type-name "!")))
    5353           (predicate (string->symbol (conc type-name "?")))
  • release/4/defstruct/trunk/defstruct.setup

    r11760 r11782  
    55  'defstruct
    66  '("defstruct.so" "defstruct.import.so")
    7   `((version 1.2)
     7  `((version 1.3)
    88    (documentation "defstruct.html")))
  • release/4/defstruct/trunk/tests/run.scm

    r11759 r11782  
    2929(test-group "updaters"
    3030  (let* ((c1 (make-complex field-1: 'foo))
    31          (c2 (complex-copy c1 field-1: '()))
    32          (c3 (complex-copy c1 field-2: 'qux)))
     31         (c2 (update-complex c1 field-1: '()))
     32         (c3 (update-complex c1 field-2: 'qux)))
    3333    (test 'foo (complex-field-1 c1))
    3434    (test 'two (complex-field-2 c1))
     
    4949  (defstruct ini-capture (uninitialized 1))
    5050  (define i1 (make-ini-capture))
    51   (test 1 (ini-capture-uninitialized (ini-capture-copy i1)))
    52   (test 2 (ini-capture-uninitialized (ini-capture-copy i1 uninitialized: 2)))
     51  (test 1 (ini-capture-uninitialized (update-ini-capture i1)))
     52  (test 2 (ini-capture-uninitialized (update-ini-capture i1 uninitialized: 2)))
    5353  (set-ini-capture! i1 uninitialized: 'uninitialized)
    5454  (test 'uninitialized (ini-capture-uninitialized i1)))
Note: See TracChangeset for help on using the changeset viewer.