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

move (picrin record-primitive) to (picrin record)

This commit is contained in:
Yuito Murase 2014-08-04 07:38:27 +09:00
parent 9e9666999e
commit 8934c99ac2
2 changed files with 63 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
piclib/scheme/base.scm
View File

@ -732,11 +732,9 @@
(export parameterize make-parameter) (export parameterize make-parameter)
;;; Record Type ;; 5.5 Recored-type definitions
(define-library (picrin record)
(import (scheme base) (import (picrin record))
(picrin macro)
(picrin record-primitive))
(define (caddr x) (car (cddr x))) (define (caddr x) (car (cddr x)))
(define (cdddr x) (cdr (cddr x))) (define (cdddr x) (cdr (cddr x)))
@ -799,10 +797,6 @@
,@(map (lambda (field) `(define-record-field ,name ,@field)) ,@(map (lambda (field) `(define-record-field ,name ,@field))
fields)))))) fields))))))
(export define-record-type))
(import (picrin record))
(export define-record-type) (export define-record-type)

2
src/record.c
View File

@ -106,7 +106,7 @@ pic_record_record_set(pic_state *pic)
void void
pic_init_record(pic_state *pic) pic_init_record(pic_state *pic)
{ {
pic_deflibrary (pic, "(picrin record-primitive)") { 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-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);