scm: Have char-set-contains? strictly return boolean.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 07:36:34 +0000 (09:36 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 07:36:34 +0000 (09:36 +0200)
* module/srfi/srfi-14.mes (char-set-contains?): Return #t rather than
  memq result.

module/srfi/srfi-14.mes

index 7287a4d52229d05840d00c12705d76974fe9b678..9d8606911a299874029b7f1b2cafefcdd4f87926 100644 (file)
@@ -48,4 +48,4 @@
   base)
 
 (define (char-set-contains? cs x)
-  (memq x cs))
+  (and (memq x cs) #t))