From 925c78e8a654b9477ae80c879f2bc9ba32f925c4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 4 May 2009 05:15:48 -0500
Subject: [PATCH] Don't make a curry

---
 core/slots/slots.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 63c0319c1c..6bb854daf6 100755
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -122,7 +122,7 @@ ERROR: bad-slot-value value class ;
         [
             \ over ,
             over reader-word 1quotation
-            [ dip call ] curry [ dip swap ] curry %
+            [ dip call ] curry [ ] like [ dip swap ] curry %
             swap setter-word ,
         ] [ ] make (( object quot -- object )) define-inline
     ] [ 2drop ] if ;