aboutsummaryrefslogtreecommitdiff
path: root/src/interp/ht-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-19 02:28:08 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-19 02:28:08 +0000
commit2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6 (patch)
tree756dc891b84576b3697a1d636e908328afb7719b /src/interp/ht-util.boot
parentaf7a143e3a13e932e243165814fa40424507dae0 (diff)
downloadopen-axiom-2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6.tar.gz
more cleanup
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r--src/interp/ht-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index fd16ac54..846730c9 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -52,7 +52,7 @@ $activePageList := nil
htpDestroyPage(pageName) ==
symbolMember?(pageName,$activePageList) =>
- setDynamicBinding(pageName, nil)
+ symbolValue(pageName) := nil
$activePageList := remove!($activePageList,pageName)
htpName htPage ==