Move optional type predicates to type.c.
[mes.git] / build-aux / mes-snarf.scm
index 048917540d6ea891fc84a40e776ccd4c40836f6b..bc5456ea8a28dc0cfd90cfd9eed8c4b097631017 100755 (executable)
@@ -94,6 +94,9 @@ exec ${GUILE-guile} --no-auto-compile -L $HOME/src/mes/build-aux -L build-aux -e
              #:annotation (with-input-from-string (match:substring m 4) read)))
          matches)))
 
+(define (content? f)
+  ((compose not string-null? .content) f))
+
 (define (internal? f)
   ((compose (cut assoc-ref <> 'internal) .annotation) f))
 
@@ -124,7 +127,7 @@ exec ${GUILE-guile} --no-auto-compile -L $HOME/src/mes/build-aux -L build-aux -e
 
 (define (main args)
   (let* ((files (cdr args)))
-    (map file-write (append-map generate-includes files))))
+    (map file-write (filter content? (append-map generate-includes files)))))
 
 ;;(define string (with-input-from-file "../mes.c" read-string))