suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unchoke

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-22 14:26:42 -07:00
parent d03f253924
commit 7f72961915
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
beautiful-racket-lib/br/eopl.rkt
View File

@ -28,15 +28,15 @@
(values rator rand))))
(define #'(define-datatype <base-type> <base-type-predicate?>
(<subtype> [<field> <field-predicate?>] ...) ...)
(define #'(define-datatype _base-type _base-type-predicate?
(_subtype [_field _field-predicate?] ...) ...)
#'(begin
(struct <base-type> () #:transparent #:mutable)
(struct <subtype> <base-type> (<field> ...) #:transparent #:mutable
#:guard (λ(<field> ... name)
(unless (<field-predicate?> <field>)
(error name (format "arg ~a is not ~a" <field> '<field-predicate?>))) ...
(values <field> ...))) ...))
(struct _base-type () #:transparent #:mutable)
(struct _subtype _base-type (_field ...) #:transparent #:mutable
#:guard (λ(_field ... name)
(unless (_field-predicate? _field)
(error name (format "arg ~a is not ~a" _field '_field-predicate?))) ...
(values _field ...))) ...))
(define-datatype lc-exp lc-exp?