From 337d582a811ee6c3276942acf668eb0c5be15733 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 2 Apr 2008 21:31:41 -0500
Subject: [PATCH] Fix call-next-method

---
 core/generic/standard/standard.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index 2b2dbd2b2d..c36e5f1921 100644
--- 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 ;