Use JOIN instead of reduce/concat

[jscl.git] / ecmalisp.lisp

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 81f92d5..286069d 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -890,10 +890,10 @@
 (defun lambda-docstring-wrapper (docstring &rest strs)
   (if docstring
       (js!selfcall
-        "var func = " (reduce #'concat strs) ";" *newline*
+        "var func = " (join strs) ";" *newline*
         "func.docstring = '" docstring "';" *newline*
         "return func;" *newline*)
-      (reduce #'concat strs)))
+      (join strs)))
 
 (define-compilation lambda (lambda-list &rest body)
   (let ((required-arguments (lambda-list-required-arguments lambda-list))