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

@ -27,7 +27,8 @@
[else (error)])))) [else (error)]))))
;; don't return single-item results inside a list ;; 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)) (car (->list result))
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) (check-equal? (get (string->path "/root/foo/bar/file.txt") 0 3)
(map string->path '("/" "root" "foo"))) (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-true (2 . in? . '(1 2 3)))
(check-false (4 . in? . '(1 2 3))) (check-false (4 . in? . '(1 2 3)))

Loading…
Cancel
Save