From 2ff9e38b859499c699e1900d48d69b494e57efc1 Mon Sep 17 00:00:00 2001 From: niyarin Date: Fri, 10 Jul 2020 04:28:46 +0900 Subject: [PATCH] Apply linter to rule-plus.scm --- src/lib/rules-plus.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/lib/rules-plus.scm b/src/lib/rules-plus.scm index d1fbf3c..fa10825 100644 --- 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))