From 8bb3e7ef0e37a8a47fca8866a9bc79545d70a167 Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Sun, 6 Mar 2022 18:42:47 -0300 Subject: [PATCH] Fix `scm.` special form --- src/init.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/init.scm b/src/init.scm index 3254f8d..a80df0a 100644 --- a/src/init.scm +++ b/src/init.scm @@ -18,7 +18,7 @@ (lambda (fname) (and (symbol? fname) (let ((fname (symbol->string fname))) - (and (> (string-length fname) 4) + (and (>= (string-length fname) 4) (char=? #\. (string-ref fname 3)) (char=? #\s (string-ref fname 0)) (char=? #\c (string-ref fname 1))