From c36ead4be304946a6feeeb43bb3cd0c276a4852d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net> Date: Sun, 29 Sep 1996 02:14:31 +0200 Subject: [PATCH] minor fix Rev: lib/include/simulate.pre.pike:1.3 --- lib/include/simulate.pre.pike | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/lib/include/simulate.pre.pike b/lib/include/simulate.pre.pike index 6df126aaf3..7eddd6a32d 100644 --- a/lib/include/simulate.pre.pike +++ b/lib/include/simulate.pre.pike @@ -44,16 +44,6 @@ int file_size(string s) return stat[1]; } -mixed *sum_arrays(function foo, mixed * ... args) -{ - mixed *ret; - int e,d; - ret=allocate(sizeof(args[0])); - for(e=0;e<sizeof(args[0]);e++) - ret[e]=foo(@ column(args, e)); - return ret; -} - varargs int member_array(mixed needle,mixed *haystack,int start) { return search(haystack,needle,start); @@ -123,7 +113,6 @@ void create() add_constant("regexp",regexp); add_constant("strstr",search); add_constant("sum",`+); - add_constant("sum_arrays",sum_arrays); add_constant("this_function",this_function); add_constant("write_file",write_file); add_constant("add_efun",add_constant); -- GitLab