From 4f08a2caf6adb3dd142ed143ff3c42cab790abc6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 21:36:34 -0500
Subject: [PATCH] new accessor
---
basis/xml/tests/test.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/xml/tests/test.factor b/basis/xml/tests/test.factor
index 2dd2b848be..f2bd5ce1e3 100644
--- a/basis/xml/tests/test.factor
+++ b/basis/xml/tests/test.factor
@@ -21,7 +21,7 @@ SYMBOL: xml-file
[ t ] [ xml-file get children>> second contained-tag? ] unit-test
[ "<a></b>" string>xml ] [ xml-parse-error? ] must-fail-with
[ T{ comment f "This is where the fun begins!" } ] [
- xml-file get xml-before [ comment? ] find nip
+ xml-file get before>> [ comment? ] find nip
] unit-test
[ "xsl stylesheet=\"that-one.xsl\"" ] [
xml-file get after>> [ instruction? ] find nip text>>