From f0f74f93d6cce751a4aef2576f7bce837f7b23c2 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 9 May 2020 15:02:55 -0700 Subject: Add proper replace - replace was actually replace-char - backported string-replace-substring because it's only in Guile 3 --- Biz/Bild.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Biz/Bild.scm') 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)) -- cgit v1.2.3