remove extra Transform

diff --git a/example/swf.scm b/example/swf.scm
index 0829ef8..ed5fffe 100644 (file)
--- a/example/swf.scm
+++ b/example/swf.scm
@@ -1,6 +1,5 @@
 (define-class Hello flash.display.Sprite
   ((init) (let [(t (new flash.text.TextField))]
-           (invoke t appendText "http://happy-abc.org")
+           (invoke t appendText "Hello,world!!")
            (invoke this addChild t))))
 
-42
\ No newline at end of file

diff --git a/src/codegen.ml b/src/codegen.ml
index 49499ce..f521254 100644 (file)
--- a/src/codegen.ml
+++ b/src/codegen.ml
@@ -302,7 +302,7 @@ let generate_method xs =
 
 let generate program =
   let m = 
-    generate_method @@ Closuretrans.trans program in
+    generate_method program in
   let {Asm.abc_cpool=cpool;
        method_info=info;
        method_body=body;

diff --git a/test/OMakefile b/test/OMakefile
index aeb6923..a95455b 100644 (file)
--- a/test/OMakefile
+++ b/test/OMakefile
@@ -37,7 +37,7 @@ BYTE_ENABLED = true
 #
 # Various options
 #
-OCAMLCFLAGS    += -thread aosh.cma
+OCAMLFLAGS    += -thread
 OCAMLPPFLAGS += -pp "camlp4o ../camlp4/TestCaseCollector.cmo"
 OCAMLDEPFLAGS += $(OCAMLPPFLAGS)
 

diff --git a/test/runner.ml b/test/runner.ml
index 2e26afc..454e208 100644 (file)
--- a/test/runner.ml
+++ b/test/runner.ml
@@ -1,24 +1,12 @@
 (* CAUTION: this is a generated file.  If you edit it, all changes will be lost! *)
 # 1 "runner.mlp"
 # 1 "<built-in>"
-# 1 "<command-line>"
-# 1 "./runner.h" 1
-
-
-
-
-
-
-
-
+# 1 "<command line>"
 
-
-
-
-
-
-# 1 "<command-line>" 2
+# 1 "./runner.h" 1
+# 2 "<command line>" 2
 # 1 "runner.mlp"
+
 # 1 "runner.h" 1
 open Test_abc
 open Test_asm
@@ -37,4 +25,5 @@ open Util
 # 2 "runner.mlp" 2
 
 let _ =
-  Testtbl.run_test ()
+  Testtbl.run_test () 
+