From 77f980881b6757ad1e25bf4283f86852a431eba4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 9 Jun 2015 11:04:11 -0700 Subject: [PATCH] compiler.units: simplify remember-class. --- core/compiler/units/units.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor index ea39e82239..0c0d05b52d 100644 --- 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? [