change record API; remove record-of? and add record-type

2014-08-06 11:30:14 +09:00
parent bac96b2e54
commit 7b251a7129
3 changed files with 10 additions and 11 deletions
@@ -773,7 +773,8 @@
 	     (name    (car (cdr (cdr form)))))
 	 `(define (,name obj)
 	    (and (record? obj)
-		 (record-of? obj ,rectype)))))))
+		 (eq? (record-type obj)
+                      ,rectype)))))))

  (define-syntax define-record-field
    (ir-macro-transformer