From e7bf0b4fc653a5b9d608826b7de667f3ca1202e8 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Sat, 22 Feb 2025 23:02:19 +0000
Subject: Fix --> to not convert first argument, if it's a symbol, to a form.

---
 lib/macros.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/macros.lisp')

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))))
-- 
cgit v1.2.3-13-gbd6f