Fix two typos; thanks to craven@gmx.net!

diff --git a/src/edwin/evlcom.scm b/src/edwin/evlcom.scm
index 1767df90f217161419c49c1eb3f8208839e9307a..9f47532d366e1d9a13cef5657254a2853a879bc1 100644 (file)
--- 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 75baafbf1e210cfa863e0619f58d1729831276b2..d9d922ce7c2ee31840e865f01be3d7f0af964997 100644 (file)
--- 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)