From 3018d8823a4819cbb85b5661766ae98c3b43f10e Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sun, 1 Mar 2020 11:35:42 -0300 Subject: [PATCH] fix fasl-read signature primdata.ss original commit: f54da8207572e9aa71d97352b3040c5c791a6dc1 --- LOG | 2 ++ s/primdata.ss | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/LOG b/LOG index 6fc162f811..acc6412485 100644 --- a/LOG +++ b/LOG @@ -1945,3 +1945,5 @@ compress_io.c, new_io.c, externs.h, bytevector.ms, mats/Mf-base, root-experr* io.stex, objects.stex, release_notes.stex +- fix fasl-read signature + primdata.ss diff --git a/s/primdata.ss b/s/primdata.ss index f8d0802a16..5f14933c0b 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -1284,7 +1284,7 @@ (expand/optimize [sig [(ptr) (ptr environment) -> (ptr)]] [flags]) (expt-mod [sig [(integer integer integer) -> (integer)]] [flags arith-op mifoldable discard]) (fasl-file [sig [(pathname pathname) -> (void)]] [flags true]) - (fasl-read [sig [(binary-input-port) (binary-input-port sub-symbol) -> (ptr)]] [flags true]) + (fasl-read [sig [(binary-input-port) (binary-input-port sub-symbol) -> (ptr)]] [flags]) (fasl-write [sig [(sub-ptr binary-output-port) -> (void)]] [flags true]) (file-access-time [sig [(pathname) (pathname ptr) -> (time)]] [flags discard]) (file-change-time [sig [(pathname) (pathname ptr) -> (time)]] [flags discard])