From 623f59a84d31f44dde9b4b6d5743a79e9cef3846 Mon Sep 17 00:00:00 2001
From: Sean Lynch <sean@airkit.com>
Date: Sat, 19 Dec 2020 12:19:25 -0800
Subject: [PATCH] Fix a crash in record predicates

Ensures that the argument to a record predicate has enough items to be a
record before checking for the record-marker and type name.
---
 scheme/base.sld | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scheme/base.sld b/scheme/base.sld
index a8385228..4c46dae6 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -1973,6 +1973,7 @@
 (define (make-type-predicate pred name)
   (lambda (obj)
     (and (vector? obj)
+         (= (vector-length obj) 3)
          (equal? (vector-ref obj 0) record-marker)
          (equal? (vector-ref obj 1) name))))
 (define (make-constructor make name)