From e4164172781de1edfc809fd3a53cf151c5c982ac Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Mar 2016 00:59:19 -0800 Subject: [PATCH] Fix two typos; thanks to craven@gmx.net! --- src/edwin/evlcom.scm | 2 +- src/runtime/vector.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1