From 5a4bfdcfa908c01bdc832b5cf510be8654f9416d Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Tue, 23 Feb 2010 11:49:07 -0800 Subject: [PATCH] Fix particularly nasty (but rare) bug that makes ext file generation fail under unusual circumstances. --- src/sf/object.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sf/object.scm b/src/sf/object.scm index 4c45799f4..163415c96 100644 --- a/src/sf/object.scm +++ b/src/sf/object.scm @@ -327,7 +327,7 @@ USA. (if (null? other-operands) result-body (sequence/make - expression + (and expression (object/scode expression)) (append other-operands (list result-body)))))))) (else (combination/%make (and expression (object/scode expression)) block operator operands)))) -- 2.25.1