Changeset 11634 in project


Ignore:
Timestamp:
08/13/08 20:39:54 (11 years ago)
Author:
sjamaan
Message:

Forgot to checkin defstruct.scm

File:
1 edited

Legend:

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

    r11595 r11634  
    4949                                   f)) fields))
    5050           (make (string->symbol (conc "make-" type-name)))
    51            (copy (string->symbol (conc "copy-" type-name)))
     51           (copy (string->symbol (conc type-name "-copy")))
    5252           (set  (string->symbol (conc "set-" type-name "!")))
    5353           (predicate (string->symbol (conc type-name "?")))
Note: See TracChangeset for help on using the changeset viewer.