Fix find-builtin-symbols

skyizwhite · Dec 11, 2024 · 3188d5d · 3188d5d
1 parent 011ccd6
commit 3188d5d
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/src/dsl.lisp b/src/dsl.lisp
@@ -22,12 +22,8 @@
                (not (keywordp node))
                (find-symbol (string node) :hsx/builtin))
           node)
-      (cons (find-builtin-symbols (car node))
-            (mapcar (lambda (n)
-                      (if (listp n)
-                          (find-builtin-symbols n)
-                          n))
-                    (cdr node)))))
+      (cons (find-builtin-symbols (first node))
+            (find-builtin-symbols (rest node)))))
 
 ;;;; defhsx macro