Change class sytnax: if super class is empty, super class is Object

diff --git a/scm/src/parser/lisp.ml b/scm/src/parser/lisp.ml
index f434d89..37d48d5 100644 (file)
--- a/scm/src/parser/lisp.ml
+++ b/scm/src/parser/lisp.ml
@@ -191,13 +191,18 @@ let rec p_stmt =
        `Open (Node.lift (Str.split_delim dot) module_name)
     | [< _         = kwd "class";
         name      = symbol;
-        (super,_) = list @@ one_list symbol symbol;
+        supers    = list @@ many symbol;
         attrs     = list @@ many symbol;
         methods   = many @@ list p_method>] ->
-       `Class {Ast.class_name = name;
-               super          = qname super;
-               attrs          = attrs;
-               methods        = methods}
+       let super =
+         match supers with
+             [x] -> x
+           | []  -> Node.ghost "Object"
+           | _   -> Parsec.fail () in
+         `Class {Ast.class_name = name;
+                 super          = qname super;
+                 attrs          = attrs;
+                 methods        = methods}
     | [< _ = kwd "module"; name = symbol; exports = list @@ many symbol; stmts = many stmt>] ->
        if exports = [] then
          (* exports nothing must not be happened. *)

diff --git a/scm/test/parser/lispTest.ml b/scm/test/parser/lispTest.ml
index 64c1d23..d66895c 100644 (file)
--- a/scm/test/parser/lispTest.ml
+++ b/scm/test/parser/lispTest.ml
@@ -284,6 +284,8 @@ let _ =
        (fun () ->
          ok [class_ "Foo" ([],"Object") ["x";"y"] []]
            "(class Foo (Object) (x y))";
+         ok [class_ "Foo" ([],"Object") ["x";"y"] []]
+           "(class Foo () (x y))";
          ok [class_ "Foo" (["flash";"text"],"Object") ["x";"y"] []]
            "(class Foo (flash.text.Object) (x y))";
          ok [class_ "Foo" (["flash";"text"],"Object") [] []]