Order of arguments flipped for make-rtd.

This commit is contained in:
Alex Shinn 2012-02-12 13:38:25 +09:00
parent 0ad792a100
commit 5633b1dcf9

View file

@ -1,7 +1,7 @@
(define (make-rtd name fields . o)
(let ((parent (and (pair? o) (car o))))
(register-simple-type name (vector->list fields) parent)))
(register-simple-type name parent (vector->list fields))))
(define (rtd? x)
(type? x))