Add proper replace

- replace was actually replace-char
- backported string-replace-substring because it's only in Guile 3

1 files changed, 2 insertions, 2 deletions

diff --git a/Biz/Bild.scm b/Biz/Bild.scm
index 4e1d490..1fcae96 100755
--- a/Biz/Bild.scm
+++ b/Biz/Bild.scm
@@ -144,14 +144,14 @@
 (define ns? symbol?)
 
 (define (ns->path ns)
-  (let ((to-path (lambda (s) (string/replace s #\. #\/))))
+  (let ((to-path (lambda (s) (string/replace-char s #\. #\/))))
     (cond
      ((symbol? ns) (to-path (symbol->string ns)))
      ((string? ns) (to-path ns))
      (else (error "ns should be a string or symbol")))))
 
 (define (path->ns path)
-  (let ((to-ns (lambda (s) (string/replace s #\/ #\.))))
+  (let ((to-ns (lambda (s) (string/replace-char s #\/ #\.))))
     (cond
      ((symbol? path) (to-ns (symbol->string path)))
      ((string? path) (to-ns path))