Changeset 13738 for src/Pugs/Eval

Timestamp:

09/30/06 03:34:30 (2 years ago)

Author:

audreyt

Message:

* Fix the dispatch bug reported by TimToady?++, where a

superclass method of an object will fail to dispatch if a
same-named method in the enclosing scope existed.

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -279 +279 @@
         attrs <- fmap (fmap (filter (/= pkg) . nub)) $ findAttrs pkg
         if isNothing attrs || null (fromJust attrs) then fmap (err NoMatchingMulti) (findSub' var) else do
-        (`fix` (fromJust attrs)) $ \run pkgs -> do
+        -- XXX - "reverse" below is a crude hack before we have C3 dispatch;
+        --     - this is such that "class X is Object is Moose" can dispatch with Moose first.
+        (`fix` (reverse $ fromJust attrs)) $ \run pkgs -> do
             if null pkgs then return (Left $ NoSuchMethod (cast pkg)) else do
             subs <- findWithPkg (head pkgs) var