functions: read-org-tbfs → read-tbfs.
This commit is contained in:
parent
765ab457a6
commit
c999b4c6ce
1 changed files with 4 additions and 4 deletions
|
@ -35,7 +35,7 @@
|
||||||
[apply-tbf (-> tbf? (vectorof (or/c 0 1)) (or/c 0 1))]
|
[apply-tbf (-> tbf? (vectorof (or/c 0 1)) (or/c 0 1))]
|
||||||
[apply-tbf/boolean (-> tbf? (vectorof boolean?) boolean?)]
|
[apply-tbf/boolean (-> tbf? (vectorof boolean?) boolean?)]
|
||||||
[list->tbf (-> (cons/c number? (cons/c number? (listof number?))) tbf?)]
|
[list->tbf (-> (cons/c number? (cons/c number? (listof number?))) tbf?)]
|
||||||
[read-org-tbfs (-> (listof (listof number?)) (listof tbf?))]))
|
[read-tbfs (-> (listof (listof number?)) (listof tbf?))]))
|
||||||
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(require rackunit))
|
(require rackunit))
|
||||||
|
@ -294,9 +294,9 @@
|
||||||
|
|
||||||
;;; Reads a list of TBF from an Org-mode table read by
|
;;; Reads a list of TBF from an Org-mode table read by
|
||||||
;;; read-org-sexp.
|
;;; read-org-sexp.
|
||||||
(define read-org-tbfs ((curry map) list->tbf))
|
(define read-tbfs ((curry map) list->tbf))
|
||||||
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(test-case "read-org-tbfs"
|
(test-case "read-tbfs"
|
||||||
(check-equal? (read-org-tbfs '((1 2 3) (2 3 4)))
|
(check-equal? (read-tbfs '((1 2 3) (2 3 4)))
|
||||||
(list (tbf '#(1 2) 3) (tbf '#(2 3) 4)))))
|
(list (tbf '#(1 2) 3) (tbf '#(2 3) 4)))))
|
||||||
|
|
Loading…
Reference in a new issue