diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-22 23:02:19 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-22 23:02:19 +0000 |
| commit | e7bf0b4fc653a5b9d608826b7de667f3ca1202e8 (patch) | |
| tree | 89bd51bc7ab72b3908b55c22303435d05eb56dae | |
| parent | a80b64b045fec86b8475cc11c3d21c2548d1ff5f (diff) | |
| download | cantedraw-e7bf0b4fc653a5b9d608826b7de667f3ca1202e8.tar.gz cantedraw-e7bf0b4fc653a5b9d608826b7de667f3ca1202e8.tar.bz2 cantedraw-e7bf0b4fc653a5b9d608826b7de667f3ca1202e8.zip | |
Fix --> to not convert first argument, if it's a symbol, to a form.
| -rw-r--r-- | lib/macros.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/macros.lisp b/lib/macros.lisp index e82d566..d925ac5 100644 --- a/lib/macros.lisp +++ b/lib/macros.lisp @@ -37,8 +37,9 @@ Also includes transformer where symbols are considered unary functions i.e. (if (null forms) nil (let ((assignment-forms - (loop :for f :in forms - :for canon-f := (if (symbolp f) + (loop :for i :from 0 + :for f :in forms + :for canon-f := (if (and (> i 0) (symbolp f)) (list f placeholder) f) :collect `(,placeholder ,canon-f)))) |