Fixed the Sub class

deadmarshal · Apr 30, 2024 · daf75b7 · daf75b7
1 parent e433a1b
commit daf75b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/1.ProgramminginModula-3/42.PolymorphismandDynamicBinding/src/Main.m3 b/src/1.ProgramminginModula-3/42.PolymorphismandDynamicBinding/src/Main.m3
@@ -98,7 +98,7 @@ BEGIN
 
      TYPE
        Super = OBJECT METHODS m1() := P1 END;
-       Sub = OBJECT METHODS m2() := P2 END;
+       Sub = Super OBJECT METHODS m2() := P2 END;
      VAR
        super := NEW(Super);  
        sub := NEW(Sub);