diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 19:35:24 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 19:35:24 +0000 |
| commit | d4b68bb27f42afb8338f35f9fda0c467ec5d8787 (patch) | |
| tree | 26e8947ef0a82e8150e46ebd0b257ec5cd13c0ed /z09.c | |
| parent | 2c0ebbabd66ba21d3224bf58678bf62998b94c2c (diff) | |
| download | lout-d4b68bb27f42afb8338f35f9fda0c467ec5d8787.tar.gz | |
Lout 3.18.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@5 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'z09.c')
| -rw-r--r-- | z09.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,7 +1,7 @@ /*@z09.c:Closure Expansion:SearchEnv()@***************************************/ /* */ -/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.17) */ -/* COPYRIGHT (C) 1991, 1999 Jeffrey H. Kingston */ +/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.18) */ +/* COPYRIGHT (C) 1991, 2000 Jeffrey H. Kingston */ /* */ /* Jeffrey H. Kingston (jeff@cs.usyd.edu.au) */ /* Basser Department of Computer Science */ @@ -180,12 +180,12 @@ OBJECT *crs, OBJECT *res_env) if( type(par) == PAR && actual(par) == actual(x) ) { assert( Down(par) != par, "ExpandCLosure: Down(par)!"); Child(res, Down(par)); - if( dirty(enclosing(actual(par))) ) - { debug2(DSU, DD, "c %s %s", SymName(actual(par)), EchoObject(res)); + if( dirty(enclosing(actual(par))) || is_enclose(actual(par)) ) + { debug2(DCE, DD, "copy %s %s", SymName(actual(par)), EchoObject(res)); res = CopyObject(res, no_fpos); } else - { debug2(DCE, DDD, "l %s %s", + { debug2(DCE, DD, "link %s %s", FullSymName(actual(par), AsciiToFull(".")), EchoObject(res)); DeleteLink(Down(par)); y = MakeWord(WORD, STR_NOCROSS, &fpos(res)); |