From e3a813d72449e738bd95323511ad0696719bf396 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 2 Apr 2021 21:39:47 -0400 Subject: Init bizbot --- bs/string.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bs/string.scm') diff --git a/bs/string.scm b/bs/string.scm index 963525c..c6e6e31 100644 --- a/bs/string.scm +++ b/bs/string.scm @@ -19,8 +19,8 @@ (only (ice-9 ports) with-output-to-string)) ;; Is `pre` a prefix of `s`? - (define (prefix? s sub) - (string-prefix? sub s)) + (define (prefix? s pre) + (string-prefix? pre s)) ;; Is `suf` a suffix of `s`? (define (suffix? s suf) -- cgit v1.2.3