boot: Bugfix for diff on mes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 23 May 2018 07:24:52 +0000 (09:24 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 23 May 2018 16:41:57 +0000 (18:41 +0200)
* scripts/diff.scm (diff-files): Rename from diff; Avoids name clash
  with module to allow using -e '(<module>)' hack.

scripts/diff.scm

index d8ade78f5246708f1cadb6d10ac8a5ba4b453170..74eef11264dcd2907788b87859b096efd8c8029c 100755 (executable)
@@ -73,8 +73,7 @@ exec ${MES-mes} -L $(dirname 0) -e '(diff)' -s "$0" "$@"
 (define (line-equal? a b)
   (equal? (string-trim-right a) (string-trim-right b)))
 
-;; naive diff
-(define (diff a b)
+(define (diff-files a b)
   (let ((a-lines (string-split (with-input-from-file a read-string) #\newline))
         (b-lines (string-split (with-input-from-file b read-string) #\newline)))
     (let loop ((context '(1 1 #f #f #f)) (a-lines a-lines) (b-lines b-lines))
@@ -116,7 +115,7 @@ exec ${MES-mes} -L $(dirname 0) -e '(diff)' -s "$0" "$@"
 (define (main args)
   (let* ((files (cdr args))
          (files (if (string-prefix? "-" (car files)) (cdr files) files))
-         (hunks (apply diff (list-head files 2))))
+         (hunks (apply diff-files (list-head files 2))))
     (when (pair? hunks)
       (display (string-join (append-map hunk->lines hunks) "\n"))
       (newline)