diff --git a/scheme/last-revision b/scheme/last-revision index adbc5cb..1b0f564 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1255 +1256 diff --git a/scheme/makefile.ss b/scheme/makefile.ss index d3c5cb4..4c7732d 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -179,7 +179,7 @@ [&irritants ($core-rtd . (&irritants-rtd &irritants-rcd))] [&who ($core-rtd . (&who-rtd &who-rcd ))] [&non ($core-rtd . (&non-continuable-rtd &non-continuable-rcd))] - [&implementation ($core-rtd . (&implementation-restriction-rtd &implementation-restriction-rcd))] + [&implementation-restriction ($core-rtd . (&implementation-restriction-rtd &implementation-restriction-rcd))] [&lexical ($core-rtd . (&lexical-rtd &lexical-rcd ))] [&syntax ($core-rtd . (&syntax-rtd &syntax-rcd ))] [&undefined ($core-rtd . (&undefined-rtd &undefined-rcd))] @@ -697,7 +697,7 @@ [nan? i r ba] [negative? i r ba se] [not i r ba se] - [null? i r ba] + [null? i r ba se] [number->string i r ba se] [number? i r ba se] [numerator i r ba se] @@ -747,10 +747,10 @@ [vector-set! i r ba se] [vector? i r ba se] [zero? i r ba se] - [... i ne r ba sc] - [=> i ne r ba ex] + [... i ne r ba sc se] + [=> i ne r ba ex se] [_ i ne r ba sc] - [else i ne r ba ex] + [else i ne r ba ex se] [bitwise-arithmetic-shift i r bw] [bitwise-arithmetic-shift-left i r bw] [bitwise-arithmetic-shift-right i r bw] @@ -1069,6 +1069,7 @@ [i/o-encoding-error? i r ip] [i/o-error-filename i r ip is fi] [i/o-error-port i r ip is fi] + [i/o-error-position i r ip is fi] [i/o-error? i r ip is fi] [&i/o-file-already-exists i r ip is fi] [i/o-file-already-exists-error? i r ip is fi] @@ -1151,7 +1152,7 @@ [current-output-port i r ip is se] [current-error-port i r ip is] [eof-object i r ip is se] - [eof-object? i r ip is] + [eof-object? i r ip is se] [close-input-port i r is se] [close-output-port i r is se] [display i r is se]