conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use <foo> style in naming record type

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 11:33:07 +09:00
parent 7b251a7129
commit 0610c0e95b
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
piclib/picrin/array.scm
View File

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

2
piclib/scheme/lazy.scm
View File

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

6
piclib/srfi/111.scm
View File

@ -1,8 +1,10 @@
(define-library (srfi 111) (define-library (srfi 111)
(import (scheme base)) (import (scheme base))
(define-record-type box-type (box value) box? (define-record-type <box>
(value unbox set-box!)) (box value)
box?
(value unbox set-box!))
(export box box? (export box box?
unbox set-box!)) unbox set-box!))