From 82d804d1d52f5856beb97dc3a2e41889c8c9402c Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 24 Feb 2010 18:22:33 -0800 Subject: [PATCH] =?utf8?q?Use=20length=3D=3F?= --- src/sf/usiexp.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sf/usiexp.scm b/src/sf/usiexp.scm index 155c5612b..c817de4f1 100644 --- a/src/sf/usiexp.scm +++ b/src/sf/usiexp.scm @@ -305,7 +305,7 @@ USA. (define (apply*-expansion expr operands block) (cond ((< (length operands) 2) #f) - ((= 2 (length operands)) + ((length=? operands 2) (if (and (manifest-argument-list? (second operands)) (noisy-test sf:enable-flatten-apply? "flatten-apply")) (combination/make expr block (first operands) (flatten-operands (second operands))) @@ -412,7 +412,7 @@ USA. (define (general-car-cdr-expansion encoding) (lambda (expr operands block) - (if (= (length operands) 1) + (if (length=? operands 1) (make-combination expr block (ucode-primitive general-car-cdr) -- 2.25.1