From 6a20bb7a02094a31b598ecc919f9fad9429d1178 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 19 Jan 2016 08:22:33 -0800 Subject: [PATCH] Use FOLD-LEFT instead of REDUCE-LEFT. --- src/compiler/machines/svm/assembler-runtime.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler/machines/svm/assembler-runtime.scm b/src/compiler/machines/svm/assembler-runtime.scm index 8ad0ba38b..5155d557e 100644 --- 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) -- 2.25.1