From ae24ace4c0535a261375e21af707befac3060ad9 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 17 Jan 2009 18:03:58 +0000 Subject: * interp/br-saturn.boot (htpMakeEmptyPage): Use deprecated GENTEMP instead of GENSYM. * interp/ht-util.boot (htpName): Likewise. (mkCurryFun): Likewise. (htRadioButtons): Likewise. (htBcRadioButtons): Likewise * interp/br-con.boot (kisValidType): Use $LangSupportTypes. --- src/interp/br-saturn.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/br-saturn.boot') diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 9c49cfad..e439d1ca 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -605,7 +605,7 @@ htInitPageNoHeading(propList) == --------------------> NEW DEFINITION <-------------------------- htpMakeEmptyPage(propList,:options) == - name := IFCAR options or GENSYM() + name := IFCAR options or GENTEMP() if not $saturn then $activePageList := [name, :$activePageList] setDynamicBinding(name, val := VECTOR(name, nil, nil, nil, nil, nil, propList, nil)) -- cgit v1.2.3