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

Rename to modify-first-of-lists

Browse source
This commit is contained in:
paku 2024-05-27 15:01:46 +09:00
parent 3a6475df6a
commit e18c9097e2
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/hsx.lisp
View file

@ -67,23 +67,23 @@
;;;; hsx macro to find hsx symbols
(defmacro hsx (form)
(modify-first-leaves form
(modify-first-of-lists form
#'builtin-element-p
(lambda (node)
(find-symbol (string node) :hsx/hsx))))
(defun modify-first-leaves (tree test result)
(defun modify-first-of-lists (tree test result)
(if tree
(cons (let ((first-node (first tree)))
(cond
((listp first-node)
(modify-first-leaves first-node test result))
(modify-first-of-lists first-node test result))
((funcall test first-node)
(funcall result first-node))
(t first-node)))
(mapcar (lambda (node)
(if (listp node)
(modify-first-leaves node test result)
(modify-first-of-lists node test result)
node))
(rest tree)))))