phrase/2 incorrect

[UWN]

?- phrase(({!,fail};[wrong]),L). 
L = [wrong];

Expected false.

[ichiban]

Thank you for reporting this. I'll fix it later.

[UWN]

There is more, (also a bit in Scryer), will tell you when Scryer is ready.

[UWN]

Here are all tests. Consider to include phrase//2 and phrase//3 as higher-order extensions.