compiler.units: simplify remember-class.

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index ea39e822398ab8c7f585ed8cd2bbcc10f140f807..0c0d05b52db59cbc1c94dd2bb52c36d566325384 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -33,8 +33,9 @@ PRIVATE>
     old-definitions get [ delete ] with each ;
 
 : remember-class ( class loc -- )
-    [ dup new-definitions get first in? [ dup throw-redefine-error ] when ] dip
-    new-definitions get second (remember-definition) ;
+    new-definitions get first2
+    [ dupd in? [ dup throw-redefine-error ] when ]
+    [ (remember-definition) ] bi-curry* bi* ;
 
 : forward-reference? ( word -- ? )
     dup old-definitions get [ in? ] with any? [