diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-10-22 23:03:42 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-10-22 23:03:42 +0300 |
| commit | e16763df4de9e198adf48d746407d43fa5538221 (patch) | |
| tree | 3015c6d25357f88fd0e4493de2e6d597136d96ad /macros | |
| parent | 54a83a9f0506804a597875f3eaf4de874bf6762f (diff) | |
changes
fix eq? for empty tables
rewrite parts of the readme
simplify functions rest and check-bindings
Diffstat (limited to 'macros')
| -rw-r--r-- | macros/core.fnl | 6 |
1 files changed, 2 insertions, 4 deletions
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] |