diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 01:22:11 +0000 |
| commit | af7a143e3a13e932e243165814fa40424507dae0 (patch) | |
| tree | b0b22dedd5754449a9565049f3b4552f4ae2c71f /src/interp/format.boot | |
| parent | 43e465553496af8449014857fdd95386b6e8fd66 (diff) | |
| download | open-axiom-af7a143e3a13e932e243165814fa40424507dae0.tar.gz | |
* interp/buildom.boot (lookupInDomainVector): Establish a new
binding for $lookupDefaults.
Diffstat (limited to 'src/interp/format.boot')
| -rw-r--r-- | src/interp/format.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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") |