From 89674096006b286c3c20e0969c493e7f42b56365 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 6 Aug 2011 21:17:36 +0000
Subject: cleanup

---
 src/interp/pathname.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/pathname.boot')

diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot
index e5c9c8f3..97cab246 100644
--- a/src/interp/pathname.boot
+++ b/src/interp/pathname.boot
@@ -49,7 +49,7 @@ pathname? p ==
  
 pathname p ==
   pathname? p => p
-  atom p => PATHNAME p
+  p isnt [.,:.] => PATHNAME p
   if #p>2 then p:=[p.0,p.1]
   PATHNAME apply(FUNCTION MAKE_-FILENAME, p)
  
-- 
cgit v1.2.3