ikarus/src/psyntax.compat.ss

21 lines
626 B
Scheme
Raw Normal View History

(library (psyntax compat)
(export define-record make-parameter parameterize format gensym
2007-10-11 23:43:25 -04:00
eval-core make-record-type symbol-value set-symbol-value!
file-options-spec)
(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* ...))])))