Rename string-split-str argument

embddr/common.scm

@@ -221,16 +221,16 @@
            (substitute str template-format subst-list))
          ls)))
 
-;;; Split string by string delimiter
+;;; Split the string STR into a list of the substrings delimited by DELIMITER
-(define (string-split-str str str_pred)
+(define (string-split-str str delimiter)
   (if (string-null? str)
       '()
-      (let ((didx (string-contains str str_pred)))
+      (let ((didx (string-contains str delimiter)))
         (if didx
             (cons (substring str 0 didx)
                   (string-split-str
-                   (substring str (+ didx (string-length str_pred)))
+                   (substring str (+ didx (string-length delimiter)))
-                   str_pred))
+                   delimiter))
             (list str)))))
 
 ;;; Split string and remove empty itemes