#!/bin/sh

find . -type f -name '*.scm' 2>/dev/null|
    while read f; do
	grep -qs '(label[[:space:]]\+"' "$f" &&
	    echo "file $f uses implicit attributes, please replace with (label text \"some text\") or (label)"
    done
