* Use is-substring.

svn path=/nixpkgs/trunk/; revision=6532
This commit is contained in:
Eelco Dolstra 2006-09-15 12:36:54 +00:00
parent 935c1d8aa8
commit abccd47cf5

View File

@ -61,11 +61,7 @@ rules
starts-section: x@(appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs), attr) -> x starts-section: x@(appl(prod([cf(layout())], cf(opt(layout())), no-attrs()), cs), attr) -> x
where <debug; starts-section'> cs where <implode-string; is-substring(!"###")> cs
starts-section': [35, 35, 35 | cs] -> 1
starts-section': [c | cs] -> <starts-section'> cs
where <not(?35)> c
compare-attrs: compare-attrs: