From 838240fceb8483ac0e86b644011498b0cda093c1 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 Nov 2019 12:07:42 -0500
Subject: [PATCH] Avoid computing (length args) twice

---
 scheme/base.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 4167c423..85483aaf 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1864,7 +1864,7 @@
   (lambda args
     (let* ((field-tags (vector-ref name 2))
            (field-values (list->vector args)))
-      (when (not (equal? (length field-tags) (length args)))
+      (when (not (equal? (length field-tags) (vector-length field-values)))
         (error "invalid number of arguments passed to record type constructor" args))
       (vector record-marker name field-values))))
 (define (type-slot-offset name sym)