Commit 4002495b authored by sof's avatar sof
Browse files

[project @ 1997-05-26 04:45:22 by sof]

Updated to use new addIdDeforesInfo interface
parent d06c6312
......@@ -136,7 +136,7 @@ dictionary deconstruction.
> (vs,es) = unzip bs
> vs' = map mkDeforestable vs
> s = zip vs (map (Var . DefArgVar) vs')
> mkDeforestable v = replaceIdInfo v (addDeforestInfo (getIdInfo v) DoDeforest)
> mkDeforestable v = addIdDeforestInfo v DoDeforest
> convAtom :: DefAtom -> UniqSM DefAtom
>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment