suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #45 from michaellenaghan/master

Browse Source 
Fix two typos and three minor inconsistencies.
original commit: 19a80e849b1b0f9451b205cd96411c44036cdba6
This commit is contained in:
Andy Keep 2016-05-12 20:08:55 -04:00
commit 0c5d46d1b2
4 changed files with 48 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
c/scheme.c
View File

@ -545,7 +545,7 @@ static IBOOL find_boot(name, ext, errorp) const char *name, *ext; IBOOL errorp;
if (S_fixedpathp(name)) { if (S_fixedpathp(name)) {
if (strlen(name) >= PATH_MAX) { if (strlen(name) >= PATH_MAX) {
fprintf(stderr, "boot-file path is to long %s\n", name); fprintf(stderr, "boot-file path is too long %s\n", name);
S_abnormal_exit(); S_abnormal_exit();
} }

2
configure vendored
View File

@ -245,7 +245,7 @@ if [ "$help" = "yes" ]; then
echo " --threads specify threaded version ($threads)" echo " --threads specify threaded version ($threads)"
echo " --32|--64 specify 32/64-bit version ($bits)" echo " --32|--64 specify 32/64-bit version ($bits)"
echo " --installprefix=<pathname> final installation root ($installprefix)" echo " --installprefix=<pathname> final installation root ($installprefix)"
echo " --installbin=<pathname> lib directory ($installbin)" echo " --installbin=<pathname> bin directory ($installbin)"
echo " --installlib=<pathname> lib directory ($installlib)" echo " --installlib=<pathname> lib directory ($installlib)"
echo " --installman=<pathname> manpage directory ($installman)" echo " --installman=<pathname> manpage directory ($installman)"
echo " --temproot=<pathname> staging root ($temproot)" echo " --temproot=<pathname> staging root ($temproot)"

4
s/io.ss
View File

@ -3768,7 +3768,7 @@ implementation notes:
(unless (and (input-port? binary-input-port) (binary-port? binary-input-port)) (unless (and (input-port? binary-input-port) (binary-port? binary-input-port))
($oops who "~s is not a binary input port" binary-input-port)) ($oops who "~s is not a binary input port" binary-input-port))
(unless (and (fixnum? count) (fx>= count 0)) (unless (and (fixnum? count) (fx>= count 0))
($oops who "~s is not a non-negative fixnum" count)) ($oops who "~s is not a nonnegative fixnum" count))
(let ([buffer-size (file-buffer-size)]) (let ([buffer-size (file-buffer-size)])
(if (not ($fxu< buffer-size count)) (if (not ($fxu< buffer-size count))
(let ([bv (make-bytevector count)]) (let ([bv (make-bytevector count)])
@ -3933,7 +3933,7 @@ implementation notes:
(unless (and (input-port? textual-input-port) (textual-port? textual-input-port)) (unless (and (input-port? textual-input-port) (textual-port? textual-input-port))
($oops who "~s is not a textual input port" textual-input-port)) ($oops who "~s is not a textual input port" textual-input-port))
(unless (and (fixnum? count) (fx>= count 0)) (unless (and (fixnum? count) (fx>= count 0))
($oops who "~s is not a non-negative fixnum" count)) ($oops who "~s is not a nonnegative fixnum" count))
(let ([buffer-size (file-buffer-size)]) (let ([buffer-size (file-buffer-size)])
(if (not ($fxu< buffer-size count)) (if (not ($fxu< buffer-size count))
(let ([st (make-string count)]) (let ([st (make-string count)])

2
s/print.ss
View File

@ -437,7 +437,7 @@ floating point returns with (1 0 -1 ...).
(cutoffadjust k r s m- m+ ruf (fx- initialcutoffplace k))] (cutoffadjust k r s m- m+ ruf (fx- initialcutoffplace k))]
[(relative) [(relative)
(when (fx>= initialcutoffplace 0) (when (fx>= initialcutoffplace 0)
($oops '$flonum->digits "non-negative relative cutoffplace ~s" ($oops '$flonum->digits "nonnegative relative cutoffplace ~s"
initialcutoffplace)) initialcutoffplace))
(cutoffadjust k r s m- m+ ruf initialcutoffplace)] (cutoffadjust k r s m- m+ ruf initialcutoffplace)]
[else [else