Artifact 3baacb8beae808e31dc63d31670569e2044ef045:

• File srfi/s99/records.sls — part of check-in [80c8c83034] at 2016-07-07 18:11:39 on branch trunk — initial import (user: ovenpasta@pizzahack.eu size: 354)

0000: 28 6c 69 62 72 61 72 79 20 28 73 72 66 69 20 73  (library (srfi s
0010: 39 39 20 72 65 63 6f 72 64 73 29 0a 20 20 28 65  99 records).  (e
0020: 78 70 6f 72 74 0a 20 20 20 6d 61 6b 65 2d 72 74  xport.   make-rt
0030: 64 20 72 74 64 3f 20 72 74 64 2d 63 6f 6e 73 74  d rtd? rtd-const
0040: 72 75 63 74 6f 72 20 72 74 64 2d 70 72 65 64 69  ructor rtd-predi
0050: 63 61 74 65 20 72 74 64 2d 61 63 63 65 73 73 6f  cate rtd-accesso
0060: 72 20 72 74 64 2d 6d 75 74 61 74 6f 72 0a 20 20  r rtd-mutator.  
0070: 20 72 65 63 6f 72 64 3f 20 72 65 63 6f 72 64 2d   record? record-
0080: 72 74 64 20 72 74 64 2d 6e 61 6d 65 20 72 74 64  rtd rtd-name rtd
0090: 2d 70 61 72 65 6e 74 0a 20 20 20 72 74 64 2d 66  -parent.   rtd-f
00a0: 69 65 6c 64 2d 6e 61 6d 65 73 20 72 74 64 2d 61  ield-names rtd-a
00b0: 6c 6c 2d 66 69 65 6c 64 2d 6e 61 6d 65 73 20 72  ll-field-names r
00c0: 74 64 2d 66 69 65 6c 64 2d 6d 75 74 61 62 6c 65  td-field-mutable
00d0: 3f 0a 20 20 20 64 65 66 69 6e 65 2d 72 65 63 6f  ?.   define-reco
00e0: 72 64 2d 74 79 70 65 29 0a 20 20 28 69 6d 70 6f  rd-type).  (impo
00f0: 72 74 20 28 73 72 66 69 20 73 39 39 20 72 65 63  rt (srfi s99 rec
0100: 6f 72 64 73 20 70 72 6f 63 65 64 75 72 61 6c 29  ords procedural)
0110: 0a 20 20 20 20 20 20 20 20 20 20 28 73 72 66 69  .          (srfi
0120: 20 73 39 39 20 72 65 63 6f 72 64 73 20 69 6e 73   s99 records ins
0130: 70 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20  pection).       
0140: 20 20 20 28 73 72 66 69 20 73 39 39 20 72 65 63     (srfi s99 rec
0150: 6f 72 64 73 20 73 79 6e 74 61 63 74 69 63 29 29  ords syntactic))
0160: 29 0a                                            ).