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

schemify: add a missing unwrap

Browse Source 
Anothe repair related to the 'source-name property.
This commit is contained in:
Matthew Flatt 2018-10-08 12:56:38 -06:00
parent c102673339
commit 70bfd55696
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/schemify/find-definition.rkt
View File

@ -94,7 +94,7 @@
[else (values knowns #f)])]
[`(define-values (,prop:s ,s? ,s-ref)
(make-struct-type-property ,_ . ,rest))
(define type (gensym (symbol->string prop:s)))
(define type (gensym (symbol->string (unwrap prop:s))))
(values
(let* ([knowns (hash-set knowns (unwrap s-ref) (known-accessor 2 type))]
[knowns (hash-set knowns (unwrap s?) (known-predicate 2 type))])