[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [MIT-Scheme-devel] Fixes pushed

From: Chris Hanson
Subject: Re: [MIT-Scheme-devel] Fixes pushed
Date: Tue, 1 Mar 2016 01:00:43 -0800


Fixed both bugs.

On Mon, Feb 29, 2016 at 10:51 PM, <address@hidden> wrote:
Hello Chris!

One more, commit 69e6107c introduced optional parameters #!optional
start to vector-fill!, but end was overlooked (even though used in the
I'd suggest the following:

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 75baafb..90b4319 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)
@@ -314,4 +314,4 @@ USA.
                      (loop (fix:+ i 1))))

Without this, I cannot build current git:

(echo '(with-working-directory-pathname "runtime"' && \
 echo '  (lambda () (load "runtime.cbf")))') \
| 'mit-scheme-x86-64' --batch-mode --band ./tools/ --eval '(begin  )'
;Loading "runtime.cbf"...
;  Compiling file: "./advice.bin" => "./"...
;Unbound variable: end
;To continue, call RESTART with an option number:
; (RESTART 3) => Specify a value to use instead of end.
; (RESTART 2) => Define end to a given value.
; (RESTART 1) => Return to read-eval-print level 1.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]