From fa3f23105ddcf07c5900de47f19af43d1db1b597 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:27 -0800 Subject: Import Upstream version 2c3 --- record.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'record.scm') diff --git a/record.scm b/record.scm index b0cc755..a1a9450 100644 --- a/record.scm +++ b/record.scm @@ -66,7 +66,7 @@ ;; Internal accessor functions. No error checking. (rtd-tag (lambda (x) (vect-ref x 0))) - (rtd-name (lambda (rtd) (vect-ref rtd 1))) + (rtd-name (lambda (rtd) (if (vector? rtd) (vect-ref rtd 1) "rtd"))) (rtd-fields (lambda (rtd) (vect-ref rtd 3))) ;; rtd-vfields is padded out to the length of the vector, which is 1 ;; more than the number of fields -- cgit v1.2.3