Open GoogleCodeExporter opened 8 years ago
With r503: Index: stdlib/core/enums.scm =================================================================== --- stdlib/core/enums.scm (revision 503) +++ stdlib/core/enums.scm (working copy) @@ -93,7 +93,7 @@ (define enum-set-member? (lambda (symbol set) (or (symbol? symbol) - (assertion-violation 'enum-set-member? (format "expected enum- set, but got ~r as argument 1" symbol) (list symbol set))) + (assertion-violation 'enum-set-member? (format "expected symbol, but got ~r as argument 1" symbol) (list symbol set))) (or (enum-set? set) (assertion-violation 'enum-set-member? (format "expected enum- set, but got ~r as argument 2" set) (list symbol set))) (and (memq symbol (enum-set-members set)) #t)))
Original issue reported on code.google.com by tabe.fix...@gmail.com on 11 Nov 2009 at 1:46
tabe.fix...@gmail.com
Original issue reported on code.google.com by
tabe.fix...@gmail.com
on 11 Nov 2009 at 1:46