[project @ 2000-08-10 10:20:03 by rrt]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Name.lhs

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 23c3a01..d066626 100644 (file)
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -455,6 +455,8 @@ maybeUserImportedFrom other                                            = Nothing
 isDllName :: Name -> Bool
        -- Does this name refer to something in a different DLL?
 isDllName nm = not opt_Static &&
+              not (isLocallyDefinedName nm) && 
+-- isLocallyDefinedName test is needed because nameModule won't work on local names
               not (isLocalModule (nameModule nm))
 
 nameSrcLoc name = provSrcLoc (n_prov name)