diff options
| author | zweije | 2001-08-10 14:36:10 +0000 |
|---|---|---|
| committer | zweije | 2001-08-10 14:36:10 +0000 |
| commit | 7875a1c0242f24d200a6c9a124ea26e19fb039e2 (patch) | |
| tree | 3ef1b9ea8d4307b2b492dd5ef1351eb724fbe351 /sucl | |
| parent | This commit was generated by cvs2svn to compensate for changes in r603, (diff) | |
This commit was generated by cvs2svn to compensate for changes in r605,
which included commits to RCS files with non-trunk default branches.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@606 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'sucl')
| -rw-r--r-- | sucl/dnc.dcl | 2 | ||||
| -rw-r--r-- | sucl/dnc.icl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/sucl/dnc.dcl b/sucl/dnc.dcl index 30853e7..081dc97 100644 --- a/sucl/dnc.dcl +++ b/sucl/dnc.dcl @@ -8,4 +8,4 @@ from StdOverloaded import == // dnc is like varcontents, but can give a more reasonable error message // when the contents is used when undefined. -dnc :: (var->.String) !(Graph .sym var) var -> (.Bool,Node .sym var) | == var +dnc :: (var->.String) !.(Graph sym var) var -> (.Bool,Node sym var) | == var diff --git a/sucl/dnc.icl b/sucl/dnc.icl index 400c5b2..3c644de 100644 --- a/sucl/dnc.icl +++ b/sucl/dnc.icl @@ -7,7 +7,7 @@ import StdEnv // dnc is like varcontents, but can give a more reasonable error message // when the contents is used when undefined. -dnc :: (var->.String) !(Graph .sym var) var -> (.Bool,Node .sym var) | == var +dnc :: (var->.String) !.(Graph sym var) var -> (.Bool,Node sym var) | == var dnc makemessage graph var | fst vc = vc = (False,(wrong "symbol",wrong "arguments")) |