[project @ 1999-01-14 19:53:57 by sof]
[ghc-hetmet.git] / ghc / compiler / rename / RnSource.lhs
index 34966a7..01091ca 100644 (file)
@@ -759,8 +759,8 @@ rnUfCon (UfPrimOp op)
   = lookupOccRn op             `thenRn` \ op' ->
     returnRn (UfPrimOp op')
 
-rnUfCon (UfCCallOp str casm gc)
-  = returnRn (UfCCallOp str casm gc)
+rnUfCon (UfCCallOp str is_dyn casm gc)
+  = returnRn (UfCCallOp str is_dyn casm gc)
 \end{code}
 
 %*********************************************************