fix unittest

diff --git a/scm/codegen/.ocamlinit b/scm/codegen/.ocamlinit
new file mode 100644 (file)
index 0000000..72215ae
--- /dev/null
+++ b/scm/codegen/.ocamlinit
@@ -0,0 +1,15 @@
+#use "topfind";;
+#require "extlib";;
+#camlp4o;;
+
+#directory "../../base";;
+#directory "../../swflib";;
+#directory "../../camlp4";;
+#directory "../ast";;
+#load "base.cma";;
+#load "swflib.cma";;
+#load "ast.cma";;
+#load "pa_oo.cmo";;
+#load "pa_openin.cmo";;
+
+

diff --git a/scm/codegen/codegenExprTest.ml b/scm/codegen/codegenExprTest.ml
index b09a9fb..334f0e8 100644 (file)
--- a/scm/codegen/codegenExprTest.ml
+++ b/scm/codegen/codegenExprTest.ml
@@ -28,9 +28,8 @@ let register i =
   `BindVar (Node.ghost (Register i))
 
 let inner args inst =
-  let l = Label.peek 0 in
     {empty with
-       method_name  = qname [] @@ Label.to_string l;
+       method_name  = qname [] "";
        params       = args;
        code = inst@[`ReturnValue] }