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