Apply linter to rule-plus.scm

niyarin · Jul 9, 2020 · 2ff9e38 · 2ff9e38
1 parent aa46159
commit 2ff9e38
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/lib/rules-plus.scm b/src/lib/rules-plus.scm
@@ -3,7 +3,7 @@
    (export rules+/match rules+/expand rules+/match-expand)
    (begin
       (define (%alists-distinct . args)
-        (let ((alist (apply append args)))
+        (let ((alist (concatenate args)))
           (let loop ((als alist)
                      (res '())
                      (keys '()))
@@ -36,7 +36,7 @@
                    (null? input))
               res)
              ((null? input) (break #f))
-             ((not (pair? rule))
+             ((not-pair? rule)
               (%match ellipsis literals rule nests input res break))
              ((%ellipsis-rule? rule ellipsis)
               (or (call/cc (lambda (_break)
@@ -50,7 +50,7 @@
                                               _break)))
                                (loop rule (cdr input) _break (+ nest-cnt 1) new-res))))
                   (loop (cddr rule) input break 0 res)))
-             ((not (pair? input))
+             ((not-pair? input)
               (break #f))
              (else (loop (cdr rule)
                          (cdr input)
@@ -218,7 +218,7 @@
             (let loop ((ls template)
                        (res-cell res-cell-top))
               (cond
-                ((not (pair? ls))
+                ((not-pair? ls)
                  (set-cdr! res-cell (%expand ellipsis ls alist refs break))
                  (cdr res-cell-top))
                 ((and (pair? (cdr ls))