Don't make a curry

2009-05-04 05:15:48 -05:00 · 2009-05-04 05:15:48 -05:00 · 925c78e8a6
parent 72691cae07
commit 925c78e8a6
1 changed files with 1 additions and 1 deletions
--- 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 ;