Use error instead of undef for matchpattern stub

d111e0ea · Vincent Zweije · 1e03d0bb · d111e0ea
Commit d111e0ea authored Aug 29, 2001 by Vincent Zweije
--- a/sucl/newfold.icl
+++ b/sucl/newfold.icl
@@ -211,7 +211,7 @@ matchpattern ::
    (FuncBody sym var)
 -> FuncBody sym var

-matchpattern _ _ _ = undef
+matchpattern _ _ _ = error "newfold: matchpattern: not yet implemented"

 rule2body rule = buildgraph (arguments rule) (ruleroot rule) (rulegraph rule)