aboutsummaryrefslogtreecommitdiff
path: root/sucl/trd.dcl
diff options
context:
space:
mode:
authorjohnvg2011-05-10 13:45:26 +0000
committerjohnvg2011-05-10 13:45:26 +0000
commit851602809c397be0fa3bde9ed89eca0a9ebdd927 (patch)
treec2dd6a8facb349d1c78de019bc2d19822998f0b7 /sucl/trd.dcl
parentdelete portToNewSyntax (diff)
delete sucl, the same files can be found in the branch sucl
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1940 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'sucl/trd.dcl')
-rw-r--r--sucl/trd.dcl25
1 files changed, 0 insertions, 25 deletions
diff --git a/sucl/trd.dcl b/sucl/trd.dcl
deleted file mode 100644
index 09b2467..0000000
--- a/sucl/trd.dcl
+++ /dev/null
@@ -1,25 +0,0 @@
-definition module trd
-
-// $Id$
-
-from rule import Rule
-from graph import Node
-from StdOverloaded import ==
-
-/*
-`Ruletype theap symtype rule' determines the type of `rule'.
-`Theap' must be an endless supply of type variables.
-`Symtype' associates type rules with the symbols that occur in `rule'.
-
-If typing does not succeed, the function aborts.
-*/
-
-ruletype
- :: .[tvar]
- ((Node sym var) -> Rule tsym trvar)
- (Rule sym var)
- -> .Rule tsym tvar
- | == var
- & == tsym
- & == tvar
- & == trvar