From 0610c0e95bd247d6374c33cc0f6844d0e8b50bcb Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 6 Aug 2014 11:33:07 +0900 Subject: [PATCH] use style in naming record type --- piclib/picrin/array.scm | 2 +- piclib/scheme/lazy.scm | 2 +- piclib/srfi/111.scm | 6 ++++-- 3 files changed, 6 insertions(+), 4 deletions(-) diff --git a/piclib/picrin/array.scm b/piclib/picrin/array.scm index 4f8295d5..66aaa5b5 100644 --- a/piclib/picrin/array.scm +++ b/piclib/picrin/array.scm @@ -1,7 +1,7 @@ (define-library (picrin array) (import (scheme base)) - (define-record-type array-type + (define-record-type (create-array data size head tail) array? (data array-data set-array-data!) diff --git a/piclib/scheme/lazy.scm b/piclib/scheme/lazy.scm index 444dda40..70774f21 100644 --- a/piclib/scheme/lazy.scm +++ b/piclib/scheme/lazy.scm @@ -4,7 +4,7 @@ (import (scheme base) (picrin macro)) - (define-record-type promise + (define-record-type (make-promise% done obj) promise? (done promise-done? promise-done!) diff --git a/piclib/srfi/111.scm b/piclib/srfi/111.scm index aafb4c8b..2fb15916 100644 --- a/piclib/srfi/111.scm +++ b/piclib/srfi/111.scm @@ -1,8 +1,10 @@ (define-library (srfi 111) (import (scheme base)) - (define-record-type box-type (box value) box? - (value unbox set-box!)) + (define-record-type + (box value) + box? + (value unbox set-box!)) (export box box? unbox set-box!))