From 0bbb74b7b0d8130cfcb71aedd7971e2906362a08 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 12 May 2020 12:32:57 -0700 Subject: for -> turn Inspired by hoon --- Biz/Serval.scm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'Biz/Serval.scm') diff --git a/Biz/Serval.scm b/Biz/Serval.scm index 1ccab41..2ea89c2 100644 --- a/Biz/Serval.scm +++ b/Biz/Serval.scm @@ -86,11 +86,6 @@ ;; should this kit start when the host starts? (auto-start get-auto-start set-auto-start!)) -(define-syntax for - (syntax-rules () - ((_ a b) (map b a)) - ((_ a ... b) (map b a ...)))) - (define (zip a b) "Combine a and b into a single list of pairs." ;; TODO: zip-list, zip-with, in Core @@ -99,7 +94,7 @@ (define (serialize kit) "Turns a kit into an association list." (let* ((fields (record-type-fields @Kit)) - (values (for fields + (values (turn fields (lambda (field) ((record-accessor @Kit field) kit))))) (zip fields values))) -- cgit v1.2.3