From 425b39da5bedd1aae013f97e79c5edc3f187d10a Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sun, 15 Oct 2017 22:49:43 -0300 Subject: [PATCH] fix enumerate signature original commit: f28167b985190ebab58a1c58d7693077ee29e96a --- LOG | 2 ++ s/primdata.ss | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/LOG b/LOG index 788aebebaf..fb0a20257a 100644 --- a/LOG +++ b/LOG @@ -645,4 +645,6 @@ makefiles/Makefile-release_notes.in (renamed from release_notes/Makefile), makefiles/Makefile +- fix enumerate signature + primdata.ss diff --git a/s/primdata.ss b/s/primdata.ss index 5bd0c3411b..6752918baa 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -1244,7 +1244,7 @@ (enable-interrupts [sig [() -> (uint)]] [flags true]) (engine-block [sig [() -> (ptr)]] [flags]) (engine-return [sig [(ptr ...) -> (bottom)]] [flags abort-op]) - (enumerate [sig [(list) -> (ufixnum)]] [flags alloc]) + (enumerate [sig [(list) -> (list)]] [flags alloc]) (enum-set? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (environment? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (environment-mutable? [sig [(environment) -> (boolean)]] [flags pure mifoldable discard]) @@ -1457,8 +1457,8 @@ (mutex-release [feature pthreads] [sig [(mutex) -> (void)]] [flags true]) (mutex? [feature pthreads] [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (new-cafe [sig [() (procedure) -> (ptr ...)]] [flags]) - (nonnegative? [sig [(number) -> (boolean)]] [flags pure mifoldable discard]) - (nonpositive? [sig [(number) -> (boolean)]] [flags pure mifoldable discard]) + (nonnegative? [sig [(real) -> (boolean)]] [flags pure mifoldable discard]) + (nonpositive? [sig [(real) -> (boolean)]] [flags pure mifoldable discard]) (number->string [sig [(number) (number sub-ufixnum) (number sub-ufixnum sub-ufixnum) -> (string)]] [flags alloc]) ; radix not restricted to 2, 4, 8, 16 (object-counts [sig [() -> (ptr)]] [flags alloc]) (oblist [sig [() -> (list)]] [flags alloc])