[elk] patch again as text

[martin rumori <lists@rumori.de>]

sorry for reposting, but the binary attachment was removed.  here
again as plain text.

bests,

martin

diff -rpuN elk-3.99.6-orig/include/extern.h elk-3.99.6/include/extern.h
--- elk-3.99.6-orig/include/extern.h	2003-12-05 13:38:37.000000000 +0100
+++ elk-3.99.6/include/extern.h	2004-01-19 19:44:34.000000000 +0100
@@ -298,6 +298,7 @@ extern Object P_Truncate P_((Object));
 extern Object P_Round P_((Object));
 extern Object P_Sqrt P_((Object));
 extern Object P_Exp P_((Object));
+extern Object P_Pow P_((Object, Object));
 extern Object P_Log P_((Object));
 extern Object P_Sin P_((Object));
 extern Object P_Cos P_((Object));
diff -rpuN elk-3.99.6-orig/src/math.c elk-3.99.6/src/math.c
--- elk-3.99.6-orig/src/math.c	2003-12-05 13:38:37.000000000 +0100
+++ elk-3.99.6/src/math.c	2004-01-19 19:44:13.000000000 +0100
@@ -1100,6 +1100,8 @@ Object P_Sqrt (Object x) { return Genera
 
 Object P_Exp (Object x) { return General_Function (x, Null, exp); }
 
+Object P_Pow (Object x, Object y) { return General_Function (x, y, pow); }
+
 Object P_Log (Object x) { return General_Function (x, Null, log); }
 
 Object P_Sin (Object x) { return General_Function (x, Null, sin); }
diff -rpuN elk-3.99.6-orig/src/prim.c elk-3.99.6/src/prim.c
--- elk-3.99.6-orig/src/prim.c	2003-12-05 13:38:38.000000000 +0100
+++ elk-3.99.6/src/prim.c	2004-01-19 19:44:22.000000000 +0100
@@ -269,6 +269,7 @@ struct Prim_Init {
     { P_Round,             "round",                          1, 1,    EVAL },
     { P_Sqrt,              "sqrt",                           1, 1,    EVAL },
     { P_Exp,               "exp",                            1, 1,    EVAL },
+    { P_Pow,               "pow",                            2, 2,    EVAL },
     { P_Log,               "log",                            1, 1,    EVAL },
     { P_Sin,               "sin",                            1, 1,    EVAL },
     { P_Cos,               "cos",                            1, 1,    EVAL },