Use lst argument as agreed in #16

schemedoc · Jul 7, 2021 · e0a5c5f · e0a5c5f
1 parent c0db239
commit e0a5c5f
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/recipes/join-list-of-strings-with-delimiter.md b/recipes/join-list-of-strings-with-delimiter.md
@@ -29,27 +29,27 @@ Credit [Jakub T. Jankiewicz](https://jcubic.pl/me)
 ### Using fold
 
 ```
-(define (string-join list delimiter)
-  (if (null? list) ""
+(define (string-join lst delimiter)
+  (if (null? lst) ""
       (fold (lambda (item result) (string-append result delimiter item))
-            (car list)
-            (cdr list))))
+            (car lst)
+            (cdr lst))))
 ```
 
 Credit [Lassi Kortela](https://github.com/lassik)
 
 ### Using string ports
 
 ```
-(define (string-join list delimiter)
-  (if (null? list) ""
+(define (string-join lst delimiter)
+  (if (null? lst) ""
       (call-with-port (open-output-string)
                       (lambda (out)
-                        (write-string (car list) out)
+                        (write-string (car lst) out)
                         (for-each (lambda (item)
                                     (write-string delimiter out)
                                     (write-string item out))
-                                  (cdr list))
+                                  (cdr lst))
                         (get-output-string out)))))
 ```