diff options
Diffstat (limited to 'sucl/dnc.icl')
| -rw-r--r-- | sucl/dnc.icl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/sucl/dnc.icl b/sucl/dnc.icl deleted file mode 100644 index 1c7e08c..0000000 --- a/sucl/dnc.icl +++ /dev/null @@ -1,16 +0,0 @@ -implementation module dnc - -// $Id$ - -import graph -import basic -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 makemessage graph var -| fst vc = vc - = (False,(wrong "symbol",wrong "arguments")) - where vc = varcontents graph var - wrong element = abort ("getting "+++element+++" of free variable: "+++makemessage var) |