From 4341bba898fd1ac6debd39a913d17148756bd9ec Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 13 Oct 2019 18:07:27 -0600 Subject: [PATCH] don't try to constant-fold `$record-ref` It's not safe, so atempting to fold is not safe. original commit: 0178656e87155947426bca6edf4e26bab6626ae0 --- s/primdata.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s/primdata.ss b/s/primdata.ss index a8af5e93cd..87cb6642cf 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -2208,7 +2208,7 @@ ($record-equal-procedure [flags discard]) ($record-hash-procedure [flags discard]) ($record-oops #;[sig [(maybe-who sub-ptr rtd) -> (bottom)]] [flags abort-op]) - ($record-ref [sig [(ptr sub-index) -> (ptr)]] [flags mifoldable discard cp03]) + ($record-ref [sig [(ptr sub-index) -> (ptr)]] [flags discard cp03]) ($record-set! [sig [(ptr sub-index ptr) -> (void)]] [flags true]) ($record-type-descriptor [flags pure mifoldable discard true]) ($record-type-field-offsets [flags pure mifoldable discard true])