20 lines
598 B
Scheme
20 lines
598 B
Scheme
|
|
(library (psyntax compat)
|
|
(export define-record make-parameter parameterize format gensym
|
|
eval-core make-record-type symbol-value set-symbol-value!)
|
|
(import
|
|
(only (ikarus compiler) eval-core)
|
|
(rename (ikarus) (define-record sys.define-record)))
|
|
|
|
(define-syntax define-record
|
|
(syntax-rules ()
|
|
[(_ name (field* ...) printer)
|
|
(begin
|
|
(sys.define-record name (field* ...))
|
|
(module ()
|
|
(set-rtd-printer! (type-descriptor name)
|
|
printer)))]
|
|
[(_ name (field* ...))
|
|
(sys.define-record name (field* ...))])))
|
|
|