From 6f40dcc5df4018f4ff2425937cddfe48637f80b2 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Thu, 4 Sep 2014 19:14:43 +0900 Subject: [PATCH] refactor define-record-writer --- piclib/picrin/record.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/piclib/picrin/record.scm b/piclib/picrin/record.scm index 818913e8..18ee0fa7 100644 --- a/piclib/picrin/record.scm +++ b/piclib/picrin/record.scm @@ -1,17 +1,17 @@ (define-library (picrin record) (import (scheme base)) - (define (define-record-writer* record-type writer) + (define (set-record-writer! record-type writer) (record-set! record-type 'writer writer)) (define-syntax define-record-writer (syntax-rules () ((_ (type obj) body ...) - (define-record-writer* type + (set-record-writer! type (lambda (obj) body ...))) ((_ type writer) - (define-record-writer* type + (set-record-writer! type writer)))) (export define-record-writer))