From b4e54b797cfa53d411c32d6be9170ea84b3a68eb Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 10 Mar 2014 19:48:54 -0700 Subject: [PATCH] nits --- coerce/values.rkt | 2 +- container.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/coerce/values.rkt b/coerce/values.rkt index 74801cb..c747a22 100644 --- a/coerce/values.rkt +++ b/coerce/values.rkt @@ -74,6 +74,6 @@ (define+provide (->boolean x) - (if x #t #f)) + (and x #t)) diff --git a/container.rkt b/container.rkt index 8f8ce33..5ad91da 100644 --- a/container.rkt +++ b/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])) \ No newline at end of file