From b2ee879c07c84d39c4125f2cfed5cb1881cd5654 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 30 Jan 2009 23:26:41 -0600
Subject: [PATCH] Fix load error

---
 basis/xmode/marker/marker.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/xmode/marker/marker.factor b/basis/xmode/marker/marker.factor
index 4fdde60976..cff0af2a98 100755
--- a/basis/xmode/marker/marker.factor
+++ b/basis/xmode/marker/marker.factor
@@ -157,7 +157,7 @@ M: seq-rule handle-rule-start
     mark-token
     add-remaining-token
     tuck body-token>> next-token,
-    get-delegate [ push-context ] when* ;
+    delegate>> [ push-context ] when* ;
 
 UNION: abstract-span-rule span-rule eol-span-rule ;
 
@@ -168,7 +168,7 @@ M: abstract-span-rule handle-rule-start
     tuck rule-match-token* next-token,
     ! ... end subst ...
     dup context get (>>in-rule)
-    get-delegate push-context ;
+    delegate>> push-context ;
 
 M: span-rule handle-rule-end
     2drop ;
-- 
2.34.1