diff options
Diffstat (limited to 'nonguix/utils.scm')
| -rw-r--r-- | nonguix/utils.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/nonguix/utils.scm b/nonguix/utils.scm index 4680557..1bd0839 100644 --- a/nonguix/utils.scm +++ b/nonguix/utils.scm @@ -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) |