From e16763df4de9e198adf48d746407d43fa5538221 Mon Sep 17 00:00:00 2001 From: Andrey Orst Date: Thu, 22 Oct 2020 23:03:42 +0300 Subject: changes fix eq? for empty tables rewrite parts of the readme simplify functions rest and check-bindings --- macros/core.fnl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'macros') diff --git a/macros/core.fnl b/macros/core.fnl index 7c8af40..deb363a 100644 --- a/macros/core.fnl +++ b/macros/core.fnl @@ -3,10 +3,8 @@ (local insert table.insert) (fn check-bindings [bindings] - (assert-compile (sequence? bindings) "expected binding table - -* Try placing a table here in square brackets containing identifiers to bind." bindings) - (assert-compile (= (length bindings) 2) "expected exactly two forms in binding vector." bindings)) + (and (assert-compile (sequence? bindings) "expected binding table" []) + (assert-compile (= (length bindings) 2) "expected exactly two forms in binding vector." bindings))) (fn* if-let ([bindings then] -- cgit v1.2.3