#!r6rs
(library (rsc3 structure structure)
(export define-structure)
(import (rnrs)
	(rnrs records syntactic))

(define-syntax define-structure
   (syntax-rules ()
     ((_ name field ...)
      (define-record-type name (fields field ...)))))

)