diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-14 21:17:18 +0000 |
| commit | a97a8e2cbc7d6c86f79a5465cba20212deff66c9 (patch) | |
| tree | 5f0b1963e418af41b54cf4fea0ff6a4bc8b48762 /src/interp/br-saturn.boot | |
| parent | 99e0f1d94fc9b0326b2b1e3afc6b17708304eadb (diff) | |
| download | open-axiom-a97a8e2cbc7d6c86f79a5465cba20212deff66c9.tar.gz | |
* interp/c-util.boot (cleanParameterList!): New.
* interp/define.boot (spadCompileOrSetq): Use it.
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index c3172af8..34764f70 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -604,7 +604,7 @@ htInitPageNoHeading(propList) == --------------------> NEW DEFINITION <-------------------------- htpMakeEmptyPage(propList,:options) == - name := IFCAR options or GENTEMP() + name := IFCAR options or gensym() if not $saturn then $activePageList := [name, :$activePageList] val := vector [name, nil, nil, nil, nil, nil, propList, nil] |