From cbd17230112800448956940165f541d7c49d0dc5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 May 2013 06:42:43 +0000
Subject: Rename MAKE-FILENAME to makeFilename and re-implement in Boot.

---
 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 3dece48d..1a3bc6b3 100644
--- a/src/interp/pathname.boot
+++ b/src/interp/pathname.boot
@@ -51,7 +51,7 @@ pathname p ==
   pathname? p => p
   p isnt [.,:.] => PATHNAME p
   if #p>2 then p:=[p.0,p.1]
-  PATHNAME apply(FUNCTION MAKE_-FILENAME, p)
+  PATHNAME apply(function makeFilename, p)
  
 namestring p == 
   null p => nil
-- 
cgit v1.2.3