bartronx7/nonguix
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2026-01-25 03:54:58 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: with-transformation: Deprioritize matching of procedures.

Browse source 
* nonguix/utils.scm (with-transformation): Deprioritize procedure matching.
This commit is contained in:
Hilton Chain 2025-05-05 19:27:17 +08:00
parent 5f3ad33833
commit e4459f4802
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
nonguix/utils.scm
View file

@ -64,17 +64,6 @@ matches PRED."
(match obj
((? pred)
(proc obj))
;; TODO: Check if this can be handled as well.
((? parameter?)
obj)
((? procedure?)
(lambda args
(apply values
(map (cut with-transformation proc <> pred)
(call-with-values
(lambda ()
(apply obj args))
list)))))
((a . b)
(cons (with-transformation proc a pred)
(with-transformation proc b pred)))
@ -109,6 +98,17 @@ matches PRED."
(obj (accessor obj)))
(with-transformation proc obj pred)))
record-fields))))))
;; TODO: Check if this can be handled as well.
((? parameter?)
obj)
((? procedure?)
(lambda args
(apply values
(map (cut with-transformation proc <> pred)
(call-with-values
(lambda ()
(apply obj args))
list)))))
(_ obj)))
(define (package-with-alias alias pkg)