diff --git a/scheme/last-revision b/scheme/last-revision index fdab865..23ca55f 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1144 +1145 diff --git a/scheme/makefile.ss b/scheme/makefile.ss index 276aee2..632d4e4 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -1039,18 +1039,18 @@ [remove i r ls] [set-car! i mp se] [set-cdr! i mp se] - [string-set! i r ms se] - [string-fill! i r ms se] + [string-set! i ms se] + [string-fill! i ms se] [command-line i r pr] [exit i r pr] [delay i r5 se ne] - [exact->inexact i r r5 se] + [exact->inexact i r5 se] [force i r5 se] - [inexact->exact i r r5 se] - [modulo i r r5 se] - [remainder i r r5 se] + [inexact->exact i r5 se] + [modulo i r5 se] + [remainder i r5 se] [null-environment i r5 se] - [quotient i r r5 se] + [quotient i r5 se] [scheme-report-environment i r5 se] [close-port i r ip] [eol-style i r ip] diff --git a/src/ikarus-main.c b/src/ikarus-main.c index a890fc2..e885182 100644 --- a/src/ikarus-main.c +++ b/src/ikarus-main.c @@ -30,6 +30,7 @@ #include #include + void register_handlers(); void register_alt_stack(); @@ -257,7 +258,7 @@ register_alt_stack(){ exit(-1); } - struct sigaltstack sa; + stack_t sa; sa.ss_sp = stk; sa.ss_size = SIGSTKSZ; sa.ss_flags = 0;