diff options
author | tomsmeding <tom.smeding@gmail.com> | 2019-11-26 20:07:46 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-26 20:07:46 +0100 |
commit | 76037adf002640f886c57e558b170e1513de95b6 (patch) | |
tree | 45d567e933859b1ecce24353718744840e5958f8 /tests/stdlib.lisp | |
parent | 650a88d875acd4ec7c9cc31dac29fb447a987d31 (diff) |
Make use of multi-argument concat builtin
Diffstat (limited to 'tests/stdlib.lisp')
-rw-r--r-- | tests/stdlib.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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))))) |