nits

coerce/values.rkt

@@ -74,6 +74,6 @@
 
 
 (define+provide (->boolean x)
-  (if x #t #f))
+  (and x #t))
 
 

container.rkt

@@ -44,6 +44,6 @@
     [(list? container) (member item container)] ; returns #f or sublist beginning with item
     [(vector? container) (member item (vector->list container))] ; returns #f or sublist beginning with item
     [(hash? container) (and (hash-has-key? container item) (get container item))] ; returns #f or hash value
-    [(string? container) (regexp-match (->string item) (->string container))] ; returns #f or substring beginning with item
+    [(string? container) (regexp-match (->string item) container)] ; returns #f or substring beginning with item
     [(symbol? container) ((->string item) . in? . (->string container))] ; returns #f or subsymbol (?!) beginning with item
     [else #f]))