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

cs: fix structure property accessor & predicate names

Browse Source
This commit is contained in:
Matthew Flatt 2020-02-08 08:25:12 -07:00
parent e4c5d54e37
commit 7f729a1a2b
1 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/cs/rumble/struct.ss
View File

@ -80,6 +80,7 @@
[(procedure? fail) (|#%app| fail)] [(procedure? fail) (|#%app| fail)]
[else fail]))]) [else fail]))])
(letrec ([acc (letrec ([acc
(procedure-rename
(case-lambda (case-lambda
[(v fail) [(v fail)
(cond (cond
@ -97,7 +98,9 @@
(do-fail fail v) (do-fail fail v)
pv)) pv))
(do-fail fail v)))])] (do-fail fail v)))])]
[(v) (acc v default-fail)])]) [(v) (acc v default-fail)])
accessor-name)])
(let ([pred (procedure-rename pred predicate-name)])
(add-to-table! property-accessors (add-to-table! property-accessors
acc acc
(cons pred can-impersonate?)) (cons pred can-impersonate?))
@ -106,7 +109,7 @@
st) st)
(values st (values st
pred pred
acc)))])) acc))))]))
(define (struct-type-property-accessor-procedure? v) (define (struct-type-property-accessor-procedure? v)
(let ([v (strip-impersonator v)]) (let ([v (strip-impersonator v)])