From 502fcb18bb3925f21a67cc3f3434630c02b5bec2 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Tue, 24 Mar 2020 21:17:05 +0100 Subject: [PATCH] utils: Simplify read-org-variable-mapping. --- utils.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utils.rkt b/utils.rkt index d258153..b0fbad8 100644 --- a/utils.rkt +++ b/utils.rkt @@ -224,8 +224,8 @@ ;;; Reads a variable mapping from a string, such as the one which ;;; Org-mode produces from tables. -(define (read-org-variable-mapping str) - (make-immutable-hash (unstringify-pairs (read-org-sexp str)))) +(define read-org-variable-mapping + (compose make-immutable-hash unstringify-pairs read-org-sexp)) ;;; A synonym for read-org-variable-mapping. (define-syntax-rule (unorg str) (read-org-variable-mapping str))