From 877bf5e25b0ef40d7453453062afa2be3edc6f12 Mon Sep 17 00:00:00 2001 From: "Barak A. Pearlmutter" Date: Mon, 4 Dec 2017 09:35:31 +0000 Subject: [PATCH 1/2] spelling original commit: bf67725d5538defc7e006b0fb7a2eb95993b6f34 --- c/globals.h | 2 +- scheme.1.in | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/c/globals.h b/c/globals.h index 25aed73e1d..9006d1a7a3 100644 --- a/c/globals.h +++ b/c/globals.h @@ -15,7 +15,7 @@ */ /* globals that do NOT need to be preserved in a saved heap. - * they must be initalized each time the system is brought up. */ + * they must be initialized each time the system is brought up. */ /* gc.c */ EXTERN IBOOL S_checkheap; diff --git a/scheme.1.in b/scheme.1.in index 738eff20e9..69191eb21b 100644 --- a/scheme.1.in +++ b/scheme.1.in @@ -14,7 +14,7 @@ \fB{InstallPetiteName}\fP [ \fIoptions\fP ] \fIfile\fP ... .SH DESCRIPTION \*s is a programming language, based on R6RS Scheme, and a -high-performance implementation of that langauge. +high-performance implementation of that language. \*s compiles source expressions \fIincrementally\fP to machine code, providing the speed of compiled code in an interactive system. .LP From 1ecfb04a58b2bb701d7b2cb53448966db701d34e Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Mon, 4 Dec 2017 17:32:28 -0300 Subject: [PATCH 2/2] fix bytevector-[u/s]16-native-set! signature original commit: 5d4e2fa1b2cf1ad7011b94b2b5262f734d5f0530 --- LOG | 2 ++ s/primdata.ss | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/LOG b/LOG index 2b92305b49..3d96df9b85 100644 --- a/LOG +++ b/LOG @@ -752,3 +752,5 @@ a partial object file. syntax.ss, 7.ms +- fix signature of bytevector-[u/s]16-native-set! + primdata.ss diff --git a/s/primdata.ss b/s/primdata.ss index 60163efd8d..dc8aee9e62 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -367,7 +367,7 @@ (bytevector-uint-ref [sig [(bytevector sub-index symbol sub-length) -> (uint)]] [flags true mifoldable discard]) (bytevector-sint-ref [sig [(bytevector sub-index symbol sub-length) -> (sint)]] [flags true mifoldable discard]) (bytevector-uint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true]) - (bytevector-sint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true]) + (bytevector-sint-set! [sig [(bytevector sub-index sub-sint symbol sub-length) -> (void)]] [flags true]) (bytevector->uint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc]) (bytevector->sint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc]) (uint-list->bytevector [sig [(sub-list symbol sub-index) -> (bytevector)]] [flags alloc]) @@ -378,8 +378,8 @@ (bytevector-s16-native-ref [sig [(bytevector sub-index) -> (s16)]] [flags true cp02]) (bytevector-u16-set! [sig [(bytevector sub-index u16 symbol) -> (void)]] [flags true]) (bytevector-s16-set! [sig [(bytevector sub-index s16 symbol) -> (void)]] [flags true]) - (bytevector-u16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true]) - (bytevector-s16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true]) + (bytevector-u16-native-set! [sig [(bytevector sub-index u16) -> (void)]] [flags true]) + (bytevector-s16-native-set! [sig [(bytevector sub-index s16) -> (void)]] [flags true]) (bytevector-u32-ref [sig [(bytevector sub-index symbol) -> (u32)]] [flags true mifoldable discard]) (bytevector-s32-ref [sig [(bytevector sub-index symbol) -> (s32)]] [flags true mifoldable discard]) (bytevector-u32-native-ref [sig [(bytevector sub-index) -> (u32)]] [flags true cp02])