Changeset 17177

Timestamp:

07/30/07 17:02:08 (16 months ago)

Author:

masak

Message:

[Prim/Code.hs]
* <anon> coderefs are now treated properly
* I have no idea what I am doing, am not a Haskell programmer, I just play one on TV. Code review appreciated

Files:

• src/Pugs/Prim/Code.hs (modified) (2 diffs)

src/Pugs/Prim/Code.hs

@@ -5 +5 @@
 import Pugs.AST
 import Pugs.Internals
+import qualified Data.ByteString.Char8 as Char8
 -- import Pugs.Pretty
 
@@ -24 +25 @@
 op1CodeName v = do
     code <- fromVal v
-    return . VStr $ "&" ++ cast (subPackage code) ++ "::" ++ tail (cast (subName code))
+    return . VStr $ case Char8.unpack(subName code) of
+        "<anon>"  -> cast $ subName code
+        _         -> "&" ++ cast (subPackage code) ++
+                     "::" ++ tail (cast (subName code))
 
 op1CodeArity :: Val -> Eval Val