From d80a8244a2aca420790832230b66430f9ac9353f Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 8 Mar 2016 16:20:31 -0600 Subject: [PATCH] Fix the fix in 686bc68. Original fix did not break correctness, but did introduce too much wrapping. --- racket/collects/racket/private/class-c-old.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt index c4cfddb0ab..3790e11ae9 100644 --- a/racket/collects/racket/private/class-c-old.rkt +++ b/racket/collects/racket/private/class-c-old.rkt @@ -1341,7 +1341,8 @@ [old-classes (reverse old-classes)]) (cond [(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 interposed-val object-ref