diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:03:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:03:37 +0000 |
| commit | 078a728917e03bd210824de99ee2bdec6c520aa5 (patch) | |
| tree | 3ec662e919fa166ab6f36fef9cbad6a3378d02e8 /src/interp | |
| parent | 7303361dd90960937f442ae36818ef3ab933ff31 (diff) | |
| download | open-axiom-078a728917e03bd210824de99ee2bdec6c520aa5.tar.gz | |
Intern temporary names for HT pages.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/br-saturn.boot | 16 |
1 files changed, 8 insertions, 8 deletions
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 |