From 7576bef6c538103b4cb1cd1c343681dd25b09e1f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 21 Aug 2015 19:06:18 -0700 Subject: Remove silly use of apply from open-files. * stream.c (open_files, open_files_star): Refactored. --- stream.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/stream.c b/stream.c index 7ffe18c3..ed423dd8 100644 --- a/stream.c +++ b/stream.c @@ -3185,9 +3185,7 @@ static val open_files(val file_list, val substitute_stream) if (nilp(file_list) && substitute_stream) { return substitute_stream; } else { - return apply_intrinsic(func_n0v(make_catenated_stream), - cons(mapcar(func_n2o(open_file, 1), file_list), nil)); - + return make_catenated_stream(mapcar(func_n2o(open_file, 1), file_list)); } } @@ -3198,8 +3196,7 @@ static val open_files_star(val file_list, val substitute_stream) if (nilp(file_list) && substitute_stream) { return substitute_stream; } else { - return apply_intrinsic(func_n0v(make_catenated_stream), - cons(lazy_mapcar(func_n2o(open_file, 1), file_list), nil)); + return make_catenated_stream(lazy_mapcar(func_n2o(open_file, 1), file_list)); } } -- cgit v1.2.3