Merge pull request #225 from gus-massa/17-10-Enumerate

Fix enumerate signature
original commit: f0ca1390f2ef606b8ea6fa0f39b44df986d7d67a
This commit is contained in:
Andy Keep 2017-12-05 13:50:11 -05:00 committed by GitHub
commit 84c6961dc9
2 changed files with 5 additions and 3 deletions

2
LOG
View File

@ -754,3 +754,5 @@
7.ms 7.ms
- fix signature of bytevector-[u/s]16-native-set! - fix signature of bytevector-[u/s]16-native-set!
primdata.ss primdata.ss
- fix enumerate signature
primdata.ss

View File

@ -1244,7 +1244,7 @@
(enable-interrupts [sig [() -> (uint)]] [flags true]) (enable-interrupts [sig [() -> (uint)]] [flags true])
(engine-block [sig [() -> (ptr)]] [flags]) (engine-block [sig [() -> (ptr)]] [flags])
(engine-return [sig [(ptr ...) -> (bottom)]] [flags abort-op]) (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]) (enum-set? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(environment? [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]) (environment-mutable? [sig [(environment) -> (boolean)]] [flags pure mifoldable discard])
@ -1457,8 +1457,8 @@
(mutex-release [feature pthreads] [sig [(mutex) -> (void)]] [flags true]) (mutex-release [feature pthreads] [sig [(mutex) -> (void)]] [flags true])
(mutex? [feature pthreads] [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard]) (mutex? [feature pthreads] [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
(new-cafe [sig [() (procedure) -> (ptr ...)]] [flags]) (new-cafe [sig [() (procedure) -> (ptr ...)]] [flags])
(nonnegative? [sig [(number) -> (boolean)]] [flags pure mifoldable discard]) (nonnegative? [sig [(real) -> (boolean)]] [flags pure mifoldable discard])
(nonpositive? [sig [(number) -> (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 (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]) (object-counts [sig [() -> (ptr)]] [flags alloc])
(oblist [sig [() -> (list)]] [flags alloc]) (oblist [sig [() -> (list)]] [flags alloc])