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

add predicate record? to (picrin record), and fix bug of record-type predicate

This commit is contained in:
Yuito Murase 2014-08-04 23:01:47 +09:00
parent cd96014104
commit ef38874850
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
piclib/scheme/base.scm
View File

@ -765,7 +765,8 @@
(let ((rectype (cadr form)) (let ((rectype (cadr form))
(name (caddr form))) (name (caddr form)))
`(define (,name obj) `(define (,name obj)
(record-of? obj ,rectype)))))) (and (record? obj)
(record-of? obj ,rectype)))))))
(define-syntax define-record-field (define-syntax define-record-field
(ir-macro-transformer (ir-macro-transformer

11
src/record.c
View File

@ -59,6 +59,16 @@ pic_record_record(pic_state *pic)
return pic_obj_value(rec); return pic_obj_value(rec);
} }
static pic_value
pic_record_record_p(pic_state *pic)
{
pic_value rec;
pic_get_args(pic, "o", &rec);
return pic_bool_value(pic_record_p(rec));
}
static pic_value static pic_value
pic_record_record_of(pic_state *pic) pic_record_record_of(pic_state *pic)
{ {
@ -100,6 +110,7 @@ pic_init_record(pic_state *pic)
{ {
pic_deflibrary (pic, "(picrin record)") { pic_deflibrary (pic, "(picrin record)") {
pic_defun(pic, "make-record", pic_record_record); pic_defun(pic, "make-record", pic_record_record);
pic_defun(pic, "record?", pic_record_record_p);
pic_defun(pic, "record-of?", pic_record_record_of); pic_defun(pic, "record-of?", pic_record_record_of);
pic_defun(pic, "record-ref", pic_record_record_ref); pic_defun(pic, "record-ref", pic_record_record_ref);
pic_defun(pic, "record-set!", pic_record_record_set); pic_defun(pic, "record-set!", pic_record_record_set);