From: Chris Hanson Date: Tue, 1 Mar 2016 08:59:19 +0000 (-0800) Subject: Fix two typos; thanks to craven@gmx.net! X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~82 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4164172781de1edfc809fd3a53cf151c5c982ac;p=mit-scheme.git Fix two typos; thanks to craven@gmx.net! --- diff --git a/src/edwin/evlcom.scm b/src/edwin/evlcom.scm index 1767df90f..9f47532d3 100644 --- a/src/edwin/evlcom.scm +++ b/src/edwin/evlcom.scm @@ -234,7 +234,7 @@ The values are printed in the typein window." (lambda (buffer) (insert-string (parameterize* - (list (cons param: #t)) + (list (cons param:unparse-with-maximum-readability? #t)) (lambda () (write-to-string expression))) (buffer-end buffer))))) diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm index 75baafbf1..d9d922ce7 100644 --- a/src/runtime/vector.scm +++ b/src/runtime/vector.scm @@ -68,7 +68,7 @@ USA. (if (default-object? start) 0 start) (if (default-object? end) (vector-length vector) end))) -(define (vector-fill! vector value #!optional start) +(define (vector-fill! vector value #!optional start end) (subvector-fill! vector (if (default-object? start) 0 start) (if (default-object? end) (vector-length vector) end)