diff options
Diffstat (limited to 'recobj.scm')
| -rw-r--r-- | recobj.scm | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -5,13 +5,14 @@ (require 'object) (require 'common-list-functions) - +(define field:position position) +;@ (define record-type-name (make-generic-method)) (define record-accessor (make-generic-method)) (define record-modifier (make-generic-method)) (define record? (make-generic-predicate)) (define record-constructor (make-generic-method)) - +;@ (define (make-record-type type-name field-names) (define self (make-object)) @@ -20,7 +21,7 @@ type-name)) (make-method! self record-accessor (lambda (self field-name) - (let ((index (comlist:position field-name field-names))) + (let ((index (field:position field-name field-names))) (if (not index) (slib:error "record-accessor: invalid field-name argument." field-name)) @@ -29,7 +30,7 @@ (make-method! self record-modifier (lambda (self field-name) - (let ((index (comlist:position field-name field-names))) + (let ((index (field:position field-name field-names))) (if (not index) (slib:error "record-accessor: invalid field-name argument." field-name)) @@ -54,4 +55,4 @@ self) (provide 'record-object) -(provide 'record)
\ No newline at end of file +(provide 'record) |