From f88714210bf4aaba3e65f2ff2e72e57b969926e5 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Thu, 9 Jan 2020 09:54:56 -0300 Subject: [PATCH] fix signature in primdata original commit: bcb7841a33645c55bdd839c3de80bce53ce78402 --- s/primdata.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s/primdata.ss b/s/primdata.ss index 5782ba34ab..eeb22ee0e3 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -2227,7 +2227,7 @@ ($record-cas! [sig [(record sub-index ptr ptr) -> (boolean)]] [flags single-valued]) ($record-equal-procedure [flags single-valued discard]) ($record-hash-procedure [flags single-valued discard]) - ($record-oops [sig [(who sub-ptr rtd) -> (bottom)]] [flags abort-op]) + ($record-oops [sig [(maybe-who sub-ptr rtd) -> (bottom)]] [flags abort-op]) ($record-ref [sig [(ptr sub-index) -> (ptr)]] [flags single-valued discard cp03]) ($record-set! [sig [(ptr sub-index ptr) -> (void)]] [flags true]) ($record-type-descriptor [flags single-valued pure mifoldable discard true])