From af7a143e3a13e932e243165814fa40424507dae0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 19 May 2011 01:22:11 +0000
Subject: 	* interp/buildom.boot (lookupInDomainVector): Establish a new 
 binding for $lookupDefaults.

---
 src/interp/format.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/format.boot')

diff --git a/src/interp/format.boot b/src/interp/format.boot
index d5602c53..0821333e 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -480,8 +480,8 @@ formDecl2String(left,right) ==
 formJoin1(op,u) ==
   if op = 'Join then [:argl,last] := u else (argl := nil; last := [op,:u])
   last is [id,.,:r] and id in '(mkCategory CATEGORY) =>
-    $abbreviateJoin = true => concat(formJoin2 argl,'"%b",'"with",'"%d",'"...")
-    $permitWhere = true =>
+    $abbreviateJoin => concat(formJoin2 argl,'"%b",'"with",'"%d",'"...")
+    $permitWhere =>
       opList:= formatJoinKey(r,id)
       $whereList:= concat($whereList,"%l",$declVar,": ",
         formJoin2 argl,'"%b",'"with",'"%d","%i",opList,"%u")
-- 
cgit v1.2.3