diff options
| author | Andrey Orst <andreyorst@gmail.com> | 2020-10-25 20:45:42 +0300 |
|---|---|---|
| committer | Andrey Orst <andreyorst@gmail.com> | 2020-10-25 20:45:42 +0300 |
| commit | f696a71b13d6867bf7168e6314eeaa8663b30e92 (patch) | |
| tree | 3a3793653babbab24a413a374366c84bcf3bc0e3 /macros/fn.fnl | |
| parent | 7f6c6a600ec8652bf64d4b343c8d920d71d464c2 (diff) | |
feature: refactoring
Diffstat (limited to 'macros/fn.fnl')
| -rw-r--r-- | macros/fn.fnl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/macros/fn.fnl b/macros/fn.fnl index cada324..cdd3636 100644 --- a/macros/fn.fnl +++ b/macros/fn.fnl @@ -1,4 +1,4 @@ -(local _unpack (or table.unpack unpack)) +(local unpack (or table.unpack _G.unpack)) (local insert table.insert) (fn string? [x] @@ -28,7 +28,7 @@ * Try adding function parameters as a list of identifiers in brackets." args) (values (length args) - (list 'let [args ['...]] (list 'do (_unpack body))) + (list 'let [args ['...]] (list 'do (unpack body))) (has-amp? args))) (fn arity-dispatcher [len fixed body& name] @@ -73,7 +73,7 @@ ;; Produces arglist and body for single-arity function. ;; For more info check `gen-arity' documentation. (let [[args & body] args - (arity body amp) (gen-arity [args (_unpack body)])] + (arity body amp) (gen-arity [args (unpack body)])] `(let [len# (select :# ...)] ,(arity-dispatcher 'len# |