small string-join optimization

2021-04-19 21:58:16 +02:00
parent 6638cdff55
commit 13e5097f3a
1 changed files with 3 additions and 3 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -33,9 +33,9 @@
 	(define i 0)
 	(for e lst
        (if (= i 0)
-			(define rslt (display e))
-			(define rslt (+ rslt (display sep) (display e))))
-		(define i (inc i)))
+			(do (define rslt (display e)) (define i 1))
+			(define rslt (+ rslt (display sep) (display e)))
+            ))
 	rslt
 	))