From 078a728917e03bd210824de99ee2bdec6c520aa5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 Jun 2013 21:03:37 +0000
Subject: Intern temporary names for HT pages.

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

(limited to 'src/interp')

diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 34764f70..6f55c992 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -580,9 +580,9 @@ htInitPageNoScroll(propList, :options) ==
   $saturnContextMenuLines := nil
   title := IFCAR options
   $curPage :=
-    $standard => htpMakeEmptyPage(propList)
+    $standard => htpMakeEmptyPage propList
     nil
-  if $saturn then $saturnPage := htpMakeEmptyPage(propList)
+  if $saturn then $saturnPage := htpMakeEmptyPage propList
   $newPage := true
   $htLineList := nil
   if title then
@@ -596,19 +596,19 @@ htInitPageNoScroll(propList, :options) ==
 htInitPageNoHeading(propList) ==
 --start defining a hyperTeX page
   $curPage :=
-    $standard => htpMakeEmptyPage(propList)
-  if $saturn then $saturnPage := htpMakeEmptyPage(propList)
+    $standard => htpMakeEmptyPage propList
+  if $saturn then $saturnPage := htpMakeEmptyPage propList
   $newPage := true
   $htLineList := nil
   page()
 
 --------------------> NEW DEFINITION <--------------------------
-htpMakeEmptyPage(propList,:options) ==
-  name := IFCAR options or gensym()
+htpMakeEmptyPage propList ==
+  name := gensym()
+  importSymbol name
   if not $saturn then
     $activePageList := [name, :$activePageList]
-  val := vector [name, nil, nil, nil, nil, nil, propList, nil]
-  symbolValue(name) :=  val
+  symbolValue(name) := vector [name, nil, nil, nil, nil, nil, propList, nil]
 
 --=======================================================================
 --              Redefinitions from br-con.boot
-- 
cgit v1.2.3