Fix call-next-method

2008-04-02 21:31:41 -05:00 · 2008-04-02 21:31:41 -05:00 · 337d582a81
parent 5346e1899f
commit 337d582a81
1 changed files with 1 additions and 0 deletions
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@ -135,6 +135,7 @@ M: standard-generic next-method-quot
        ]
        [ [ inconsistent-next-method ] 2curry , ]
        2tri
+        \ if ,
    ] [ ] make ;

 TUPLE: hook-combination var ;