From 4dcf3f97d30a2b892716923ed4e916805ec87436 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Thu, 24 Dec 2015 18:05:41 -0800 Subject: Replace FUNCALL with apply. --- src/boot/utility.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/boot/utility.boot') diff --git a/src/boot/utility.boot b/src/boot/utility.boot index 37907145..4d4646a5 100644 --- a/src/boot/utility.boot +++ b/src/boot/utility.boot @@ -94,11 +94,11 @@ atomic? x == ++ Return the last image of `f' if all images of elements in `l' ++ are non-nil. Otherwise return nil. every?(f,l) == - and/[apply(f,x,nil) for x in l] + and/[apply(f,[x]) for x in l] ++ Return the first non-nil image of `f' of elements in `l'. any?(f,l) == - or/[apply(f,x,nil) for x in l] + or/[apply(f,[x]) for x in l] ++ Return the `n' node prefixes of the list `l'. If `n' is negative, ++ take from the end of the list. @@ -108,7 +108,7 @@ take(n,l) == ++ Return the sublist of `l' whose elements have non-nil image by `f'. takeWhile(f,l) == - [x for x in l while apply(f,x,nil)] + [x for x in l while apply(f,[x])] ++ Return the `n+1'th node and its successors of the list `l'. ++ If `n' is negative, drop from the end. -- cgit v1.2.3