diff options
| -rw-r--r-- | sucl/newfold.icl | 2 |
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) |