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))