diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
commit | c758c27852f049e021da8855a290dd876e3b7050 (patch) | |
tree | 7404ceb2eea0aa1d17e1e42c115361178a7fb19f /src/interp/br-saturn.boot | |
parent | a6c8f543276feb112a408d9347b56addd558bd6e (diff) | |
download | open-axiom-c758c27852f049e021da8855a290dd876e3b7050.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r-- | src/interp/br-saturn.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 403d70ca..6dd77c9e 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -548,8 +548,8 @@ htMakeButtonSaturn(htCommand, message, func,options) == htpAddToPageDescription(htPage, pageDescrip) == newDescript := - string? pageDescrip => [pageDescrip, :ELT(htPage, 7)] - nconc(nreverse COPY_-LIST pageDescrip, ELT(htPage, 7)) + string? pageDescrip => [pageDescrip, :htPage.7] + nconc(nreverse COPY_-LIST pageDescrip, htPage.7) SETELT(htPage, 7, newDescript) @@ -1425,7 +1425,7 @@ htEndTabular() == htSaySaturn '"\end{tabular}" htPopSaturn s == - pageDescription := ELT($saturnPage, 7) + pageDescription := $saturnPage.7 pageDescription is [=s,:b] => SETELT($saturnPage, 7, rest pageDescription) nil |