for -> turn

Inspired by hoon

1 files changed, 1 insertions, 6 deletions

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)))