diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt index 2c8f990f9d..e965217249 100644 --- a/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/generic/syntax-errors.rkt @@ -154,4 +154,15 @@ (define-generics foo (bar x)) (define-generics foo (bar [foo])) (define-generics foo (bar [x] foo)) - (define-generics foo (bar foo [x] y))) + (define-generics foo (bar foo [x] y)) + + (define-generics stream + (stream-first stream) + (stream-rest stream) + (stream-empty? stream) + #:defaults + ([list? + (define/generic super not-a-stream-method) + (define stream-first first) + (define stream-rest rest) + (define stream-empty? empty?)])))