assertion-struct macro
This commit is contained in:
parent
530c17ff32
commit
1feab5d174
|
@ -26,6 +26,7 @@
|
||||||
Λ inst
|
Λ inst
|
||||||
;; making types
|
;; making types
|
||||||
define-type-alias
|
define-type-alias
|
||||||
|
assertion-struct
|
||||||
define-constructor define-constructor*
|
define-constructor define-constructor*
|
||||||
;; values
|
;; values
|
||||||
#%datum
|
#%datum
|
||||||
|
@ -75,6 +76,14 @@
|
||||||
(require rackunit)
|
(require rackunit)
|
||||||
(require rackunit/turnstile))
|
(require rackunit/turnstile))
|
||||||
|
|
||||||
|
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
;; Creating Communication Types
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
(define-simple-macro (assertion-struct name:id (~datum :) Name:id (slot:id ...))
|
||||||
|
(define-constructor* (name : Name slot ...)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Core forms
|
;; Core forms
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
Loading…
Reference in New Issue