diff options
Diffstat (limited to 'Biz')
| -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))) |