From d30b6cb17b0a42e4ad16c55d31b3f2d4b9fc271e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 1 Mar 2014 13:20:17 -0800 Subject: [PATCH] updates --- container.rkt | 4 ++-- debug.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/container.rkt b/container.rkt index ad5ef8b..8f8ce33 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) (and (string? item) (regexp-match (->string item) (->string container)))] ; returns #f or substring beginning with item - [(symbol? container) (and (symbol? item) ((->string item) . in? . (->string container)))] ; returns #f or subsymbol (?!) beginning with item + [(string? container) (regexp-match (->string item) (->string 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 diff --git a/debug.rkt b/debug.rkt index 4458c88..5696849 100644 --- a/debug.rkt +++ b/debug.rkt @@ -4,7 +4,7 @@ (define-syntax-rule (report var) (begin - (displayln (format "~a = ~a" 'var var) (current-error-port)) + (displayln (format "~a = ~v" 'var var) (current-error-port)) var)) (require (prefix-in williams: describe))