From f512e0aced5db33f9d5a6b1517ac348fed26c67b Mon Sep 17 00:00:00 2001 From: Steffen Beyer Date: Thu, 2 Apr 2026 00:20:24 +0200 Subject: [PATCH] style: Dog fooding --- gulie/cli.scm | 1 - gulie/compiler.scm | 2 -- gulie/config.scm | 10 ---------- gulie/cst.scm | 1 - gulie/engine.scm | 2 -- gulie/suppression.scm | 4 +--- test/test-rules.scm | 2 +- 7 files changed, 2 insertions(+), 20 deletions(-) diff --git a/gulie/cli.scm b/gulie/cli.scm index 199211c..26f475b 100644 --- a/gulie/cli.scm +++ b/gulie/cli.scm @@ -7,7 +7,6 @@ #:use-module (gulie config) #:use-module (gulie engine) #:use-module (gulie rule) - #:use-module (gulie diagnostic) #:export (main)) (define version "0.1.0") diff --git a/gulie/compiler.scm b/gulie/compiler.scm index 5b0b1cd..6b84c1f 100644 --- a/gulie/compiler.scm +++ b/gulie/compiler.scm @@ -6,9 +6,7 @@ (define-module (gulie compiler) #:use-module (system base compile) - #:use-module (system base message) #:use-module (ice-9 regex) - #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (gulie diagnostic) #:export (compile-and-capture-warnings)) diff --git a/gulie/config.scm b/gulie/config.scm index 8e83a44..ae91ebf 100644 --- a/gulie/config.scm +++ b/gulie/config.scm @@ -4,7 +4,6 @@ ;;; merges with built-in defaults, and provides config accessors. (define-module (gulie config) - #:use-module (ice-9 rdelim) #:use-module (srfi srfi-1) #:export (default-config load-config @@ -111,15 +110,6 @@ lists are replaced, not appended." (lp (assq-set! (list-copy result) (car pair) (cdr pair)) (cdr pairs)))))) -(define (find-config-file start-dir) - "Search upward from START-DIR for .gulie.sexp. Returns path or #f." - (let lp ((dir start-dir)) - (let ((candidate (string-append dir "/.gulie.sexp"))) - (cond - ((file-exists? candidate) candidate) - ((string=? dir "/") #f) - (else (lp (dirname dir))))))) - (define (generate-template port) "Write a template .gulie.sexp to PORT." (display ";;; gulie configuration\n" port) diff --git a/gulie/cst.scm b/gulie/cst.scm index 0de8722..ae449e5 100644 --- a/gulie/cst.scm +++ b/gulie/cst.scm @@ -5,7 +5,6 @@ (define-module (gulie cst) #:use-module (srfi srfi-9) - #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (gulie tokenizer) #:export ( diff --git a/gulie/engine.scm b/gulie/engine.scm index db6e054..7c2c8d3 100644 --- a/gulie/engine.scm +++ b/gulie/engine.scm @@ -7,11 +7,9 @@ (define-module (gulie engine) #:use-module (ice-9 ftw) #:use-module (ice-9 rdelim) - #:use-module (ice-9 regex) #:use-module (srfi srfi-1) #:use-module (gulie diagnostic) #:use-module (gulie rule) - #:use-module (gulie config) #:use-module (gulie suppression) #:export (lint-file lint-files diff --git a/gulie/suppression.scm b/gulie/suppression.scm index 40cc12d..b6ce147 100644 --- a/gulie/suppression.scm +++ b/gulie/suppression.scm @@ -6,7 +6,6 @@ (define-module (gulie suppression) #:use-module (ice-9 regex) - #:use-module (ice-9 rdelim) #:use-module (srfi srfi-1) #:use-module (gulie diagnostic) #:export (parse-suppressions @@ -42,8 +41,7 @@ (define (parse-suppressions text) "Parse suppression directives from source TEXT. Returns a list of (line rules kind) entries." - (let ((lines (string-split text #\newline)) - (result '())) + (let ((lines (string-split text #\newline))) (let lp ((lines lines) (line-num 1) (acc '())) (if (null? lines) (reverse acc) diff --git a/test/test-rules.scm b/test/test-rules.scm index dd7afc7..81c0d8a 100644 --- a/test/test-rules.scm +++ b/test/test-rules.scm @@ -37,7 +37,7 @@ '() ((rule-check-proc rule) "f.scm" 1 "(define x 42)" '())) - (let* ((long-line (make-string 81 #\x)) + (let* ((long-line (make-string 119 #\x)) (diags ((rule-check-proc rule) "f.scm" 1 long-line '()))) (test-equal "long line detected" 1 (length diags)))