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

mixin: fix error-message construction

Browse Source 
Closes #1693
This commit is contained in:
Matthew Flatt 2021-04-28 14:30:31 -06:00
parent 94725ffb4e
commit 3e9a8ccf59
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/object.rktl
View File

@ -1999,7 +1999,11 @@
(define/public (n) 2) (define/public (n) 2)
(super-new))) (super-new)))
(test 3 'mixin-with-local-member-names (send (new (mix c%)) x))) (test 3 'mixin-with-local-member-names (send (new (mix c%)) x)))
(err/rt-test (mixin (object%) () (super-new))
exn:fail:object?
#rx"not an interface")
;; ---------------------------------------- ;; ----------------------------------------
;; Class contracts & generics ;; Class contracts & generics

4
racket/collects/racket/private/class-internal.rkt
View File

@ -4697,7 +4697,9 @@ An example
[(or (as-write-list? val) [(or (as-write-list? val)
(as-value-list? val)) (as-value-list? val))
(apply string-append (apply string-append
(for/list ([v (in-list (as-write-list-content val))]) (for/list ([v (in-list (if (as-write-list? val)
(as-write-list-content val)
(as-value-list-content val)))])
(format (if (as-write-list? val) (format (if (as-write-list? val)
"\n ~s" "\n ~s"
"\n ~e") "\n ~e")