add comments about (Syntaxof Syntax-E)
original commit: 3d88e7c6630806275bcfdab33d379c43a59094d8
This commit is contained in:
parent
d650866cdb
commit
e086110009
|
@ -473,7 +473,9 @@
|
|||
[#:frees (λ (f) (f parent))])
|
||||
|
||||
|
||||
;; Syntax
|
||||
;; t : Type
|
||||
;; t is the type of the result of syntax-e, not the result of syntax->datum
|
||||
(def-type Syntax ([t Type/c]) [#:key 'syntax])
|
||||
|
||||
;; A Row used in type instantiation
|
||||
|
|
|
@ -149,6 +149,7 @@
|
|||
(define/decl -FlVector (make-Base 'FlVector #'flvector? flvector?))
|
||||
(define/decl -ExtFlVector (make-Base 'ExtFlVector #'extflvector? extflvector?))
|
||||
(define/decl -FxVector (make-Base 'FxVector #'fxvector? fxvector?))
|
||||
;; in the type (-Syntax t), t is the type of the result of syntax-e, not syntax->datum
|
||||
(define -Syntax make-Syntax)
|
||||
(define/decl In-Syntax
|
||||
(-mu e
|
||||
|
|
Loading…
Reference in New Issue
Block a user