From c758c27852f049e021da8855a290dd876e3b7050 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 21:09:07 +0000
Subject: More cleanups

---
 src/interp/br-saturn.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/br-saturn.boot')

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
 
-- 
cgit v1.2.3