Add superclasses to DEFINTERFACE.

manuel · Mar 21, 2012 · 7808e4f · 7808e4f
1 parent 14bb874
commit 7808e4f
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/standard.virtua b/standard.virtua
@@ -253,8 +253,8 @@
                      (eval (list defconstructor ctor-name name args) env))))))))
      name)
 
-   (defmacro definterface (name) env
-     (eval (list defclass name ()) env))
+   (defmacro definterface (name . supers) env
+     (eval (list* defclass name supers) env))
 
    (def defimplementation add-superclass!)
 

diff --git a/test.virtua b/test.virtua
@@ -113,6 +113,13 @@
    (defimplementation Bar Foo)
    (assert (subclass? Bar Foo)))
 
+(scope
+   (definterface A)
+   (definterface B (A))
+   (defclass C)
+   (defimplementation C B)
+   (assert (subclass? C B))
+   (assert (subclass? C A)))
 
 (scope
    (defclass Foo ()