diff --git a/src/bbstool.scm b/src/bbstool.scm index c733897..3909845 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -156,7 +156,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (if (-action-) (let ((mb (load-members (*members-directory*) #t))) (if (-needs-bank-) - (members-payments-process mb (-apikeys-file-) (-bank-dir-) (jendasap-checked-)) + (members-payments-process mb (-apikeys-file-) (-bank-dir-) (-jendasap-checked-)) mb)) #f)) diff --git a/src/mailman.scm b/src/mailman.scm index c6d8015..87ac5dc 100644 --- a/src/mailman.scm +++ b/src/mailman.scm @@ -33,6 +33,8 @@ ) (import scheme + (chicken base) + (chicken pathname) utils) ;; Where does the mailman binaries reside @@ -40,7 +42,7 @@ ;; Returns full path to given mailman binary (define (mailman-bin bin) - (make-path (*mailman-bin*) bin)) + (make-pathname (*mailman-bin*) bin)) ;; Mailman-specific process output lines capture (define (get-mailman-output-lines bin)