paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Improve find-builtin-symbols

Browse source
This commit is contained in:
paku 2024-05-27 19:11:27 +09:00
parent 458785bfb1
commit d10b24c2c8
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/hsx.lisp
View file

@ -45,15 +45,13 @@
(error "The body of the hsx macro must be a single form."))
(find-builtin-symbols (car form)))
(defun find-builtin-symbols (tree)
(if tree
(cons (let ((first-node (first tree)))
(if (listp first-node)
(find-builtin-symbols first-node)
(or (find-symbol (string first-node) :hsx/builtin)
first-node)))
(mapcar (lambda (node)
(if (listp node)
(find-builtin-symbols node)
node))
(rest tree)))))
(defun find-builtin-symbols (node)
(if (atom node)
(or (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)))))