From a1955845a04de02486829387946a34ed818d0707 Mon Sep 17 00:00:00 2001
From: zweije
Date: Wed, 29 Aug 2001 14:27:29 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r688, which included commits to RCS files with non-trunk default branches.

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@689 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 sucl/newfold.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sucl')

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)
 
-- 
cgit v1.2.3