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

Fix the fix in 686bc68.

Browse Source 
Original fix did not break correctness, but did introduce too much wrapping.
This commit is contained in:
Vincent St-Amour 2016-03-08 16:20:31 -06:00
parent 686bc68b0a
commit d80a8244a2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/private/class-c-old.rkt
View File

@ -1341,7 +1341,8 @@
[old-classes (reverse old-classes)]) [old-classes (reverse old-classes)])
(cond (cond
[(null? projs) (list class)] [(null? projs) (list class)]
[else (loop ((car projs) class) (cdr ctcs) (cdr projs) '() '())])))) [else (cons class
(loop ((car projs) class) (cdr ctcs) (cdr projs) '() '()))]))))
(impersonate-struct (impersonate-struct
interposed-val object-ref interposed-val object-ref