ikarus/src/psyntax.compat.ss

(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* ...))])))