Fixing everything for mandatory stack effects

[factor.git] / core / quotations / quotations.factor

diff --git a/core/quotations/quotations.factor b/core/quotations/quotations.factor
index 2a0f5d289ff9364072a0b31407012ab56248fc5e..f3436c9a916713972491e5daa36abc731fd395ef 100755 (executable)
--- a/core/quotations/quotations.factor
+++ b/core/quotations/quotations.factor
@@ -53,11 +53,13 @@ M: compose length
     [ compose-first length ]
     [ compose-second length ] bi + ;
 
-M: compose nth
+M: compose virtual-seq compose-first ;
+
+M: compose virtual@
     2dup compose-first length < [
         compose-first
     ] [
         [ compose-first length - ] [ compose-second ] bi
-    ] if nth ;
+    ] if ;
 
-INSTANCE: compose immutable-sequence
+INSTANCE: compose virtual-sequence