7fac9193fa
This way, you don't have to use define-record-procedures-parametric for records like this: (define-record-procedures empty make-empty empty? ())
22 lines
650 B
Racket
22 lines
650 B
Racket
#lang scheme/base
|
|
|
|
(provide define-record-procedures
|
|
define-record-procedures-parametric
|
|
define-record-procedures-2
|
|
define-record-procedures-parametric-2)
|
|
|
|
(require scheme/include
|
|
scheme/promise
|
|
mzlib/struct
|
|
mzlib/pconvert-prop
|
|
mzlib/pretty
|
|
deinprogramm/signature/signature
|
|
deinprogramm/signature/signature-german
|
|
deinprogramm/signature/signature-syntax
|
|
(only-in deinprogramm/quickcheck/quickcheck arbitrary-record arbitrary-one-of))
|
|
|
|
(require (for-syntax scheme/base)
|
|
(for-syntax deinprogramm/syntax-checkers)
|
|
(for-syntax stepper/private/shared))
|
|
(include "define-record-procedures.scm")
|