Extra generics test.

2013-07-10 13:34:36 -04:00 · 2013-07-10 13:34:36 -04:00 · 52e09c60c3
commit 52e09c60c3
parent 704857bbfe
1 changed files with 12 additions and 1 deletions
--- 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?)])))