From 36b9489507c0b153bd347db4173ab1ed7f74fc98 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Aug 2020 18:15:44 -0400 Subject: [PATCH 1/2] 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 From be41a77df9a63c2e8100ca0fcf1d6c88495bfa0e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Aug 2020 18:17:30 -0400 Subject: [PATCH 2/2] Issue #402 - Document recent changes --- CHANGELOG.md | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index ffae8edf..24d3a44f 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,11 @@ # Changelog +## 0.21 - TBD + +Bug Fixes + +- Add type checking to record type accessor functions. We now raise an error if the passed object is of the wrong record type. + ## 0.20 - August 14, 2020 Features