From c8f227ccf733fb2e99eb85d6eb02f9032f0f5e6d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 28 Nov 2008 00:56:54 -0600
Subject: [PATCH] Tweak standard-next-method-quot to produce smaller quotations
---
core/generic/standard/standard.factor | 15 ++++++---------
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor
index 4f26c40e78..d7b44d09f8 100644
--- a/core/generic/standard/standard.factor
+++ b/core/generic/standard/standard.factor
@@ -83,15 +83,12 @@ ERROR: no-next-method class generic ;
: single-next-method-quot ( class generic -- quot )
[
- [ drop "predicate" word-prop % ]
- [
- 2dup next-method
- [ 2nip 1quotation ]
- [ [ no-next-method ] 2curry [ ] like ] if* ,
- ]
- [ [ inconsistent-next-method ] 2curry , ]
- 2tri
- \ if ,
+ 2dup next-method [
+ pick "predicate" word-prop %
+ 1quotation ,
+ [ inconsistent-next-method ] 2curry ,
+ \ if ,
+ ] [ [ no-next-method ] 2curry % ] if*
] [ ] make ;
: single-effective-method ( obj word -- method )