From c999b4c6ce53669e5a404fa835254cb637f39134 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Thu, 9 Jul 2020 00:53:16 +0200 Subject: [PATCH] =?UTF-8?q?functions:=20read-org-tbfs=20=E2=86=92=20read-t?= =?UTF-8?q?bfs.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functions.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/functions.rkt b/functions.rkt index e5877df..6974e9f 100644 --- a/functions.rkt +++ b/functions.rkt @@ -35,7 +35,7 @@ [apply-tbf (-> tbf? (vectorof (or/c 0 1)) (or/c 0 1))] [apply-tbf/boolean (-> tbf? (vectorof boolean?) boolean?)] [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 (require rackunit)) @@ -294,9 +294,9 @@ ;;; Reads a list of TBF from an Org-mode table read by ;;; read-org-sexp. -(define read-org-tbfs ((curry map) list->tbf)) +(define read-tbfs ((curry map) list->tbf)) (module+ test - (test-case "read-org-tbfs" - (check-equal? (read-org-tbfs '((1 2 3) (2 3 4))) + (test-case "read-tbfs" + (check-equal? (read-tbfs '((1 2 3) (2 3 4))) (list (tbf '#(1 2) 3) (tbf '#(2 3) 4)))))