a complete git commandline

2026-08-11 21:41:52 +02:00
parent c45f666f23
commit fea7fb7a59
6 changed files with 44 additions and 6 deletions
@@ -871,7 +871,10 @@


 (define (grep-flag? x flag)
-  (and (symbol? x) (eq? x flag)))
+  ;; Racket reads -i as the complex number 0-1i before quote is applied.
+  ;; In git-grep option position, accept that reader form as the Git -i flag.
+  (or (and (symbol? x) (eq? x flag))
+      (and (equal? flag 0-1i) (equal? x 0-1i))))

 (define (parse-grep-arguments args)
  (let loop ([rest args] [ignore-case? #f] [invert? #f]