{"size": 936, "ext": "scrbl", "max_stars_repo_path": "doc/sagittarius/record.scrbl", "max_stars_repo_name": "david135/sagittarius-scheme", "max_stars_repo_stars_event_min_datetime": null, "max_stars_repo_stars_event_max_datetime": null, "max_issues_repo_path": "doc/sagittarius/record.scrbl", "max_issues_repo_name": "david135/sagittarius-scheme", "max_issues_repo_issues_event_min_datetime": null, "max_issues_repo_issues_event_max_datetime": null, "max_forks_repo_path": "doc/sagittarius/record.scrbl", "max_forks_repo_name": "david135/sagittarius-scheme", "max_forks_repo_forks_event_min_datetime": null, "max_forks_repo_forks_event_max_datetime": null}
{"max_stars_count": null, "max_issues_count": null, "max_forks_count": null, "avg_line_length": 31.2, "max_line_length": 98, "alphanum_fraction": 0.735042735}
@; -*- mode:scribble; coding: utf-8 -*-

@subsection[:tag "lib.sagittarius.record"]{(sagittarius record) - Extra record inspection library}

@define[Library]{@name{(sagittarius record)}}
@desc{This library provides extra record operations.}

@define[Function]{@name{record-type?} @args{obj}}
@desc{Returns #t if @var{obj} is record type, otherwise #f.}

@define[Function]{@name{make-record-type} @args{name rtd rcd}}
@desc{@var{Name} must be symbol. @var{Rtd} must be record type descriptor.
@var{Rcd} must be record constructor descriptor.

Returns fresh record type.
}

@define[Function]{@name{record-type-rtd} @args{record-type}}
@desc{@var{Record-type} must be record type.

Returns associated rtd from @var{record-type}.
}

@define[Function]{@name{record-type-rtd} @args{record-type}}
@desc{@var{Record-type} must be record type.

Returns associated rcd from @var{record-type}.
}

Note: These procedures are not for using casually.