Codebase list slib / 006d0bb8-bafc-4e39-a1aa-266add5b938c/upstream/3b7 srfi-9.scm
006d0bb8-bafc-4e39-a1aa-266add5b938c/upstream/3b7

Tree @006d0bb8-bafc-4e39-a1aa-266add5b938c/upstream/3b7 (Download .tar.gz)

srfi-9.scm @006d0bb8-bafc-4e39-a1aa-266add5b938c/upstream/3b7 — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
(require 'record)
(define-syntax define-record-field
  (syntax-rules ()
    ((define-record-field type field-tag accessor)
     (define accessor (record-accessor type 'field-tag)))
    ((define-record-field type field-tag accessor modifier)
     (begin (define accessor (record-accessor type 'field-tag))
	    (define modifier (record-modifier type 'field-tag))))))
;@
(define-syntax define-record-type
  (syntax-rules ()
    ((define-record-type type (constructor constructor-tag ...) predicate (field-tag accessor . more) ...)
     (begin (define type (make-record-type 'type '(field-tag ...)))
	    (define constructor (record-constructor type '(constructor-tag ...)))
	    (define predicate (record-predicate type))
	    (define-record-field type field-tag accessor . more) ...))))