diff options
| author | Ben Sima <ben@bsima.me> | 2020-05-12 12:32:57 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-05-12 12:33:37 -0700 |
| commit | 0bbb74b7b0d8130cfcb71aedd7971e2906362a08 (patch) | |
| tree | 17c8a542fa3061f81e21d2ad4540d4f0099780f6 /Biz/Serval.scm | |
| parent | 22b95c42c5b096a3206f80e38b71aac3565ab6b7 (diff) | |
for -> turn
Inspired by hoon
Diffstat (limited to 'Biz/Serval.scm')
| -rw-r--r-- | Biz/Serval.scm | 7 |
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))) |