Intern Struct
types properly wrt. identifiers.
This commit is contained in:
parent
e6697fe43f
commit
4cba6e010f
|
@ -307,7 +307,12 @@
|
|||
[pred-id identifier?]
|
||||
[cert procedure?]
|
||||
[maker-id identifier?])
|
||||
[#:intern (list name (and parent (Rep-seq parent)) (map Rep-seq flds) (and proc (Rep-seq proc)))]
|
||||
[#:intern (list (hash-id name)
|
||||
(hash-id pred-id)
|
||||
(hash-id maker-id)
|
||||
(and parent (Rep-seq parent))
|
||||
(map Rep-seq flds)
|
||||
(and proc (Rep-seq proc)))]
|
||||
[#:frees (λ (f) (combine-frees (map f (append (if proc (list proc) null)
|
||||
(if parent (list parent) null)
|
||||
flds))))]
|
||||
|
|
|
@ -147,7 +147,7 @@
|
|||
[(Values: (list (Result: t
|
||||
(FilterSet: (TypeFilter: ft pth id)
|
||||
(NotTypeFilter: ft pth id))
|
||||
(Empty:))))
|
||||
(Empty:))))
|
||||
(if (null? pth)
|
||||
(fp "-> ~a : ~a" t ft)
|
||||
(begin (fp "-> ~a : ~a @" t ft)
|
||||
|
|
Loading…
Reference in New Issue
Block a user