llama--collect: Handle dotted lists

1 files changed, 8 insertions, 2 deletions

diff --git a/llama.el b/llama.el
index 505ac75..a0c7549 100644
--- a/llama.el
+++ b/llama.el
@@ -154,8 +154,14 @@ It also looks a bit like #\\='function."
             (error "`%s' and `%s' are mutually exclusive" data (aref args 1)))
           (aset args pos data)))))
    ((eq (car-safe data) '##))
-   ((or (listp data)
-        (vectorp data))
+   ((listp data)
+    (while (consp (cdr data))
+      (llama--collect (car data) args)
+      (setq data (cdr data)))
+    (when data
+      (llama--collect (car data) args)
+      (llama--collect (cdr data) args)))
+   ((vectorp data)
     (mapc (lambda (elt) (llama--collect elt args)) data))))
 
 ;;; Advices