summaryrefslogtreecommitdiffstats
path: root/record.scm
diff options
context:
space:
mode:
Diffstat (limited to 'record.scm')
-rw-r--r--record.scm2
1 files changed, 1 insertions, 1 deletions
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