diff options
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 7a968bfb..8112eb99 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -550,7 +550,7 @@ htpAddToPageDescription(htPage, pageDescrip) == newDescript := string? pageDescrip => [pageDescrip, :htPage.7] nconc(nreverse COPY_-LIST pageDescrip, htPage.7) - SETELT(htPage, 7, newDescript) + htPage.7 := newDescript htProcessBcStrings strings == @@ -1426,7 +1426,7 @@ htEndTabular() == htPopSaturn s == pageDescription := $saturnPage.7 - pageDescription is [=s,:b] => SETELT($saturnPage, 7, rest pageDescription) + pageDescription is [=s,:b] => $saturnPage.7 := rest pageDescription nil htBeginTable() == |