Changeset 17149

Timestamp:

07/27/07 14:50:39 (16 months ago)

Author:

masak

Message:

[Code.hs]
* made subName qualified so that Test.pm reports expected values as intended
before

Files:

• src/Pugs/Prim/Code.hs (modified) (1 diff)

src/Pugs/Prim/Code.hs

@@ -24 +24 @@
 op1CodeName v = do
     code <- fromVal v
-    return . VStr $ cast (subName code)
+    return . VStr $ "&" ++ cast (subPackage code) ++ "::" ++ tail (cast (subName code))
 
 op1CodeArity :: Val -> Eval Val