From 2ff38e852893972f6d8000a70bb4a359fb7e44df Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 22 Oct 2007 10:10:20 +0000 Subject: Various cleanup --- src/algebra/ChangeLog | 4 ++++ src/algebra/mkfunc.spad.pamphlet | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'src/algebra') diff --git a/src/algebra/ChangeLog b/src/algebra/ChangeLog index cbb2b4fc..3e0ecfe4 100644 --- a/src/algebra/ChangeLog +++ b/src/algebra/ChangeLog @@ -1,3 +1,7 @@ +2007-10-22 Gabriel Dos Reis + + * mkfunc.spad.pamphlet (InputForm$interpret): Use objNew. + 2007-10-18 Gabriel Dos Reis Fix SF/1790912 diff --git a/src/algebra/mkfunc.spad.pamphlet b/src/algebra/mkfunc.spad.pamphlet index 7b1ad3ee..770cfd42 100644 --- a/src/algebra/mkfunc.spad.pamphlet +++ b/src/algebra/mkfunc.spad.pamphlet @@ -98,7 +98,7 @@ InputForm(): interpret x == v := interpret(x)$Lisp - mkObj(unwrap(objVal(v)$Lisp)$Lisp, objMode(v)$Lisp)$Lisp + objNew(unwrap(objVal(v)$Lisp)$Lisp, objMode(v)$Lisp)$Lisp convert(x:DoubleFloat):% == zero? x => 0 -- cgit v1.2.3