From 76037adf002640f886c57e558b170e1513de95b6 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Tue, 26 Nov 2019 20:07:46 +0100 Subject: Make use of multi-argument concat builtin --- tests/stdlib.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/stdlib.lisp') diff --git a/tests/stdlib.lisp b/tests/stdlib.lisp index 9acee4b..e6c7eee 100644 --- a/tests/stdlib.lisp +++ b/tests/stdlib.lisp @@ -40,7 +40,7 @@ (cons (car l) (take-while-list f (cdr l))) '())) -(define bracket (s) (concat "<" (concat s ">"))) +(define bracket (s) (concat "<" s ">")) (define take-while-str (f s) (cond @@ -135,4 +135,4 @@ "" (null? (cdr l)) (car l) - (concat (concat (car l) sep) (intercalate sep (cdr l))))) + (concat (car l) sep (intercalate sep (cdr l))))) -- cgit v1.2.3-70-g09d2