SF.net SVN: fricas:[2641] trunk

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

Revision: 2641
http://sourceforge.net/p/fricas/code/2641
Author: whebisch
Date: 2020-03-08 14:58:31 +0000 (Sun, 08 Mar 2020)
Log Message:
-----------
Remove unused functions

Modified Paths:
--------------
trunk/ChangeLog
trunk/src/interp/cstream.boot

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2020-03-07 14:11:54 UTC (rev 2640)
+++ trunk/ChangeLog 2020-03-08 14:58:31 UTC (rev 2641)
@@ -1,3 +1,7 @@
+2020-03-08 Waldek Hebisch <heb...@math.uni.wroc.pl>
+
+ * src/interp/cstream.boot: Remove unused functions
+
2020-03-06 Waldek Hebisch <heb...@math.uni.wroc.pl>

* src/algebra/genups.spad: Fix type conditions,

Modified: trunk/src/interp/cstream.boot
===================================================================
--- trunk/src/interp/cstream.boot 2020-03-07 14:11:54 UTC (rev 2640)
+++ trunk/src/interp/cstream.boot 2020-03-08 14:58:31 UTC (rev 2641)
@@ -110,23 +110,3 @@
StreamNull s=> StreamNil
h:= APPLY(f, [s])
incAppend(car h,next(f,cdr h))
-
-nextown(f,g,s)==Delay(function nextown1,[f,g,s])
-nextown1 (:z)==
- [f,g,s]:=z
- StreamNull s=>
- spadcall1 g
- StreamNil
- StreamNull s
- h:=spadcall2 (f, s)
- incAppend(car h,nextown(f,g,cdr h))
-
-nextown2(f,g,e,x)==nextown(cons(f,e),cons(g,e),x)
-
-spadcall1(g)==
- [impl, :env] := g
- APPLY(impl, [env])
-
-spadcall2(f,args) ==
- [impl, :env] := f
- APPLY(impl, [args, env])

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