SF.net SVN: fricas: [51] trunk

[wheb...@users.sourceforge.net]

Revision: 51
http://fricas.svn.sourceforge.net/fricas/?rev=51&view=rev
Author: whebisch
Date: 2007-09-13 14:37:58 -0700 (Thu, 13 Sep 2007)

Log Message:
-----------
Fix issue 102.

Modified Paths:
--------------
trunk/ChangeLog.wh
trunk/src/input/bugs2007.input.pamphlet
trunk/src/interp/iterator.boot.pamphlet

Modified: trunk/ChangeLog.wh
===================================================================
--- trunk/ChangeLog.wh 2007-09-13 12:52:10 UTC (rev 50)
+++ trunk/ChangeLog.wh 2007-09-13 21:37:58 UTC (rev 51)
@@ -1,5 +1,10 @@
2007-09-13 Waldek Hebisch <heb...@math.uni.wroc.pl>

+ * src/interp/iterator.boot.pamphlet: getIdentity(): return
+ "nil" if the THETA property in NIL.
+
+2007-09-13 Waldek Hebisch <heb...@math.uni.wroc.pl>
+
* src/hyper/hyper.pamphlet: Clean socket on hypertex exit.

2007-09-12 Waldek Hebisch <heb...@math.uni.wroc.pl>

Modified: trunk/src/input/bugs2007.input.pamphlet
===================================================================
--- trunk/src/input/bugs2007.input.pamphlet 2007-09-13 12:52:10 UTC (rev 50)
+++ trunk/src/input/bugs2007.input.pamphlet 2007-09-13 21:37:58 UTC (rev 51)
@@ -138,6 +138,10 @@
-1
)trace Integer )off

+-- issue 102
+solve(sinh(z)=cosh(z), z)
+
+
@
\eject
\begin{thebibliography}{99}

Modified: trunk/src/interp/iterator.boot.pamphlet
===================================================================
--- trunk/src/interp/iterator.boot.pamphlet 2007-09-13 12:52:10 UTC (rev 50)
+++ trunk/src/interp/iterator.boot.pamphlet 2007-09-13 21:37:58 UTC (rev 51)
@@ -87,7 +87,9 @@
[finalCode,m,e]

getIdentity(x,e) ==
- GETL(x,"THETA") is [y] => y
+ GETL(x,"THETA") is [y] =>
+ y => y
+ "nil"

numberize x ==
x=$Zero => 0

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.