Fix scm. special form

tizoc · Mar 6, 2022 · 8bb3e7e · 8bb3e7e
1 parent 66d19d0
commit 8bb3e7e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))