From 5633b1dcf98a4ddbbc3b03bcb3d3bd2a334779c0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 12 Feb 2012 13:38:25 +0900 Subject: [PATCH] Order of arguments flipped for make-rtd. --- lib/srfi/99/records/procedural.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/99/records/procedural.scm b/lib/srfi/99/records/procedural.scm index f8477da8..87849c2d 100644 --- a/lib/srfi/99/records/procedural.scm +++ b/lib/srfi/99/records/procedural.scm @@ -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))