fix typo

diff --git a/library/inference/class-infer.factor b/library/inference/class-infer.factor
index 4316b13a2bd9ba95831bd4b79d9447aecc08ae18..b92a650f1604d9161a5ee0102ee2ec977562962e 100644 (file)
--- a/library/inference/class-infer.factor
+++ b/library/inference/class-infer.factor
@@ -29,7 +29,7 @@ TUPLE: class-tie value class ;
 
 M: class-tie apply-tie ( tie -- )
     dup class-tie-class swap class-tie-value
-    annotate-value-class ;
+    set-value-class* ;
 
 TUPLE: literal-tie value literal ;