pull/2/head
Matthew Butterick 11 years ago
parent 5a34091e74
commit aa57e3e4f2

@ -27,7 +27,8 @@
[else (error)]))))
;; don't return single-item results inside a list
(if (and (= (len result) 1) (sliceable-container? container))
;; check for integer because integers don't have length
(if (and (not (integer? result)) (= (len result) 1) (sliceable-container? container))
(car (->list result))
result))

File diff suppressed because one or more lines are too long

@ -65,6 +65,7 @@
(check-equal? (get (string->path "/root/foo/bar/file.txt") 0 3)
(map string->path '("/" "root" "foo")))
(check-equal? (get (make-hash '((a . 1) (b . 2) (c . 3))) 'b) 2)
(check-true (2 . in? . '(1 2 3)))
(check-false (4 . in? . '(1 2 3)))

Loading…
Cancel
Save