Remove/Clean up some dead code

Author: ssoelvsten

compiler/src/Stack2JS.hs

@@ -137,26 +137,26 @@ instance Identifier Raw.Assignable where
 class ToJS a where
    toJS :: a -> W PP.Doc
 
-
-
 irProg2JSString :: CompileMode -> Bool -> StackProgram -> String
 irProg2JSString compileMode debugOut ir =
   let (fns, _, (_,_,konts)) = runRWS (toJS ir) debugOut initState
       inner = vcat (fns:konts)
       outer = vcat $
         stdlib
         ++
-        [ "function" <+> ppNamespaceName <+> text "(rt) {" ]
+        [ "function" <+> namespaceName <+> text "(rt) {" ]
         ++
         [ nest 2 inner
         , text "}" ]
         ++
         suffix
-  in      
+  in
     PP.render $
       case compileMode of
          Normal -> outer
          Export -> inner
+  where -- TODO: should be generating a new namespace per received blob
+    namespaceName = text "Top"
 
 
 stack2JSString :: StackUnit -> String
@@ -191,21 +191,6 @@ instance ToJS IR.VarAccess where
     return $ text fname 
 
 
--- instance (Identifier a) => ToJS a where 
---   toJS x = return $ ppId x
-
-ppNamespaceName = text "Top"  -- should be generating a new namespace per received blob
-
-
-irProg2JsWrapped prog = do
-    inner <- toJS prog
-    return $
-       text "function" <+> ppNamespaceName <+> text "(rt) {"
-       $$ nest 2 inner
-       $$ text "}"
-
-
-
 instance ToJS StackProgram where
   toJS (StackProgram atoms funs) = do
      jjA <- toJS atoms