From ffd0a028aefd203b4a42ded1e5a592e1b4d92dd7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 Dec 2023 01:58:26 +0100 Subject: Complete rewrite of the lens system. The old "lens" system was more of nested accessors. This rewrites them to be much better, at the cost of some extra up-front complexity. Beside the change in lenses, and all required adjustments, also adds lens creation to the define-type macro. --- tests/unit/webdav/webdav-propfind.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/unit/webdav/webdav-propfind.scm') diff --git a/tests/unit/webdav/webdav-propfind.scm b/tests/unit/webdav/webdav-propfind.scm index 143fe1cd..8144605a 100644 --- a/tests/unit/webdav/webdav-propfind.scm +++ b/tests/unit/webdav/webdav-propfind.scm @@ -21,7 +21,7 @@ (map (lambda (pr) (typecheck pr propstat?) - (modify pr propstat-property + (modify pr propstat-property* (lambda (it) (sort* it string< (compose symbol->string xml-element-tagname car))))) -- cgit v1.2.3