Revert "Support newclass"

This reverts commit 134f3773c22401cb3851110eaaba0622902e6407.

diff --git a/Makefile b/Makefile
index edab561..c68b9b0 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -46,4 +46,4 @@ count-src:
        $(OCAMLBUILD) $@
 
 %.abc : example/%.scm
-       $(OCAMLBUILD) main.byte -- -o $@ $<
\ No newline at end of file
+       $(OCAMLBUILD) -- -o $@ $<
\ No newline at end of file

diff --git a/src/codegen.ml b/src/codegen.ml
index e274106..0001209 100644 (file)
--- a/src/codegen.ml
+++ b/src/codegen.ml
@@ -101,15 +101,12 @@ let rec generate_expr expr env =
          Asm.cname = make_qname name;
          sname     = make_qname sname;
          flags_k   = [];
-         cinit     = make_meth "cinit" [PushInt 42];
+         cinit     = make_meth "cinit" [];
          iinit     = init;
          interface = [];
          methods   = List.map snd @@ List.remove_assoc "init" methods;
        } in
-         [GetLex (make_qname "Object");
-          PushScope;
-          GetLex (make_qname "Object");
-          NewClass klass]
+         [NewClass klass]
     | Var name ->
        let qname = 
          make_qname name in