From 0704f4cb294852e01c0d6a7a1d4afbd4eb7001b4 Mon Sep 17 00:00:00 2001
From: TudbuT <forge-public@mail.tudbut.de>
Date: Sun, 8 Sep 2024 13:04:31 +0200
Subject: [PATCH] update syntax to reflect change in spl

---
 mkpolynomial.spl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/mkpolynomial.spl b/mkpolynomial.spl
index 84f72f8..ee9920b 100644
--- a/mkpolynomial.spl
+++ b/mkpolynomial.spl
@@ -112,8 +112,8 @@ func main { status | with args ;
 						vardecl concat
 						")" concat
 					"simplify(f(x))"
-				] StreamTypes:cmd:create:read-to-end <{ 128 } _str =giac-out
-				("," giac-out:split:last) dup _array:sub <{ _array:len 2 - 0 swap } _str println
+				] StreamTypes:cmd:create:read-to-end<128> _str =giac-out
+				("," giac-out:split:last) dup _array:sub< _array:len 2 - 0 swap > _str println
 			} 
 			2 stop
 		}
@@ -183,7 +183,7 @@ func parse-expr { str | with degree expr ;
 		s chr concat =s
 	} expr _array 
 		:iter
-		:map <{ { str | [ swap ] _str } } 
+		:map<{ str | [ swap ] _str }>
 		:foreach
 	s
 }
@@ -220,7 +220,7 @@ func derivation { str=function | with degree derivation ;
 func mkvardecl { str | with degree ;
 	"["
 	0 degree ++ Range:new:iter
-		:map <{ { | "c" swap _str concat } }
-		:join <{ "," }
+		:map<{ | "c" swap _str concat }>
+		:join<",">
 	"]" concat concat
 }