aboutsummaryrefslogtreecommitdiff
path: root/sucl/newfold.icl
diff options
context:
space:
mode:
Diffstat (limited to 'sucl/newfold.icl')
-rw-r--r--sucl/newfold.icl2
1 files changed, 1 insertions, 1 deletions
diff --git a/sucl/newfold.icl b/sucl/newfold.icl
index ebb6550..a654f5a 100644
--- 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)