;;;===============================================================================
;;;
;;; Chez compatibility file:
;;;
;;; Uncomment the appropriate LOAD command in macros-core.scm
;;;
;;;===============================================================================

(define (ex:unique-token) (number->string (real-time)))

(define-syntax define-record-type
  (syntax-rules ()
    ((define-record-type type
       (constructor constructor-tag ...)
       predicate
       (field-tag accessor) ...)
     (begin
       (define type
         (make-record-type (symbol->string 'type) '(field-tag ...)))
       (define constructor
         (record-constructor type))
       (define predicate
         (record-predicate type))
       (define accessor (record-field-accessor type 'field-tag))
       ...))))

;; make-parameter and parameterize are provided natively