paines / ypsilon

Automatically exported from code.google.com/p/ypsilon
Other
0 stars 0 forks source link

a typo in enum-set-member? #132

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 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