use <foo> style in naming record type

piclib/picrin/array.scm

@@ -1,7 +1,7 @@
 (define-library (picrin array)
   (import (scheme base))
 
-  (define-record-type array-type
+  (define-record-type <array>
     (create-array data size head tail)
     array?
     (data array-data set-array-data!)

piclib/scheme/lazy.scm

@@ -4,7 +4,7 @@
   (import (scheme base)
 	  (picrin macro))
 
-  (define-record-type promise
+  (define-record-type <promise>
     (make-promise% done obj)
     promise?
     (done promise-done? promise-done!)

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>
+    (box value)
+    box?
+    (value unbox set-box!))
 
   (export box box?
           unbox set-box!))