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

racket/generic: better error message in empty case

Browse Source 
Closes PR 13048
This commit is contained in:
Asumu Takikawa 2012-09-11 14:43:19 -04:00
parent 1975014c55
commit 3daec14cbb
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/private/generic.rkt
View File

@ -36,7 +36,7 @@
(identifier? #'name?) (identifier? #'name?)
(identifier? #'defined-table) (identifier? #'defined-table)
(let ([generics (syntax->list #'(generic ...))]) (let ([generics (syntax->list #'(generic ...))])
(and (pair? generics) (andmap identifier? generics)))) (and (list? generics) (andmap identifier? generics))))
(let* ([idxs (for/list ([i (in-naturals 0)] (let* ([idxs (for/list ([i (in-naturals 0)]
[_ (syntax->list #'(generic ...))]) [_ (syntax->list #'(generic ...))])
i)] i)]

5
collects/tests/generic/empty-interface.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang racket
(require racket/generic)
(define-generics name)
(struct foo ()
#:methods gen:name [])

3
collects/tests/generic/tests.rkt
View File

@ -11,4 +11,5 @@
"base-interfaces.rkt" "base-interfaces.rkt"
"contract.rkt" "contract.rkt"
"from-unstable.rkt" "from-unstable.rkt"
"poly-contracts.rkt") "poly-contracts.rkt"
"empty-interface.rkt")