From: Joe Marshall Date: Tue, 19 Jan 2016 16:22:33 +0000 (-0800) Subject: Use FOLD-LEFT instead of REDUCE-LEFT. X-Git-Tag: mit-scheme-pucked-9.2.12~371^2~20 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a20bb7a02094a31b598ecc919f9fad9429d1178;p=mit-scheme.git 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 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)