From 0ec15a3220d4370027556eea344ab471d3f98edc Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 2 May 2017 16:56:14 +0200
Subject: [PATCH] make: Recompile .go too when included mes is touched.

* build-aux/compile-all.scm (scm->mes): New function.
  (file-needs-compilation?): Use it to hackishly respect (include-[from-path] "<>.mes")
---
 build-aux/compile-all.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/build-aux/compile-all.scm b/build-aux/compile-all.scm
index d2ed416f..e123bbb9 100644
--- a/build-aux/compile-all.scm
+++ b/build-aux/compile-all.scm
@@ -68,10 +68,18 @@
          (without-extension (string-drop-right relative 4)))
     (string-append without-extension ".go")))
 
+(define (scm->mes file)
+  (let* ((relative (relative-file file))
+         (without-extension (string-drop-right relative 4)))
+    (string-append without-extension ".mes")))
+
 (define (file-needs-compilation? file)
   (let ((go (scm->go file)))
     (or (not (file-exists? go))
-        (file-mtime<? go file))))
+        (file-mtime<? go file)
+        (let ((mes (scm->mes file))) ; FIXME: try to respect (include-from-path ".mes")
+          (and (file-exists? mes)
+               (file-mtime<? go mes))))))
 
 (define (file->module file)
   (let* ((relative (relative-file file))