From 0bbb74b7b0d8130cfcb71aedd7971e2906362a08 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
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')
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