From 97654b67c1109b3f130b773b0af05396ec7c1a99 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 17 Feb 2010 16:06:30 -0800
Subject: [PATCH] Revert "io.pathnames: make absolute-path? public"

This reverts commit 48756c9fca10a3a89ab8bb4b55c4fa711e524f74.
---
 core/io/pathnames/pathnames.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 2be66ef186..5a9c647973 100644
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -76,8 +76,6 @@ ERROR: no-parent-directory path ;
         [ f ]
     } cond ;
 
-PRIVATE>
-
 : absolute-path? ( path -- ? )
     {
         { [ dup empty? ] [ f ] }
@@ -87,6 +85,8 @@ PRIVATE>
         [ f ]
     } cond nip ;
 
+PRIVATE>
+
 : append-path ( path1 path2 -- path )
     {
         { [ over empty? ] [ append-path-empty ] }