Use FOLD-LEFT instead of REDUCE-LEFT.

diff --git a/src/compiler/machines/svm/assembler-runtime.scm b/src/compiler/machines/svm/assembler-runtime.scm
index 8ad0ba38b8a54995b1546228456bed979d30e61e..5155d557e5d1511948c0da73f380a6bb8fd1b960 100644 (file)
--- a/src/compiler/machines/svm/assembler-runtime.scm
+++ b/src/compiler/machines/svm/assembler-runtime.scm
@@ -211,14 +211,14 @@ USA.
 
 (define (fixed-instruction-width lap)
   (if (and (pair? lap) (pair? (car lap)) (null? (cdr lap)))
-      (reduce-left + 0 (map bit-string-length
-                           (lap:syntax-instruction (car lap))))
+      (fold-left + 0 (map bit-string-length
+                         (lap:syntax-instruction (car lap))))
       (error "FIXED-INSTRUCTION-WIDTH: Multiple instructions in LAP" lap)))
 
 (define (assemble-fixed-instruction width lap)
   (if (and (pair? lap) (pair? (car lap)) (null? (cdr lap)))
       (let* ((bits (lap:syntax-instruction (car lap)))
-            (len (reduce-left + 0 (map bit-string-length bits))))
+            (len (fold-left + 0 (map bit-string-length bits))))
        (if (not (= len width))
            (error "Mis-sized fixed instruction" lap))
        bits)