From 112ea2e8f4a5a418284524e62c59b4fefc561ce3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 4 Apr 2020 19:13:33 -0700 Subject: tags: wrong flattening function in @(bind) handling. * tags.tl (process-clause): Bugfix: flatcar must be used, not flatten, because the bindings can contain dotted notation. --- tags.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tags.tl b/tags.tl index 68a8527c..94c52740 100755 --- a/tags.tl +++ b/tags.tl @@ -140,7 +140,7 @@ (cadddr elem) (cadr elem)))) (add (ntag fun-tag (car args))))) - (bind (let ((syms (flatten (cadr elem)))) + (bind (let ((syms (flatcar (cadr elem)))) (each ((sym syms)) (add (ntag fun-tag sym))))) (do (let ((forms [mapcar unexpand (cdr elem)])) -- cgit v1.2.3