From 36b9489507c0b153bd347db4173ab1ed7f74fc98 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Aug 2020 18:15:44 -0400 Subject: [PATCH] Cleanup error message on invalid type --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 7a02dd55..eda2b9b8 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -2005,12 +2005,12 @@ (lambda (obj) (if (eq? (vector-ref obj 1) name) (vector-ref (vector-ref obj 2) idx) - (error "Invalid type" obj "expected" name)))) + (error "Invalid type" obj 'expected name)))) (define (make-setter sym name idx) (lambda (obj val) (if (eq? (vector-ref obj 1) name) (vector-set! (vector-ref obj 2) idx val) - (error "Invalid type" obj "expected" name)))) + (error "Invalid type" obj 'expected name)))) ;; Find index of element in list, or #f if not found (define _list-index