r9736 - trunk/fundev/Sources/project-manager/tools-interface

Author: housel
Date: Wed Jan  5 15:25:53 2005
New Revision: 9736

Modified:
   trunk/fundev/Sources/project-manager/tools-interface/project-files.dylan
Log:
Bug: 7227
Use as(<file-locator>, ...) instead of as(<locator>, ...).


Modified: 
trunk/fundev/Sources/project-manager/tools-interface/project-files.dylan
==============================================================================
--- trunk/fundev/Sources/project-manager/tools-interface/project-files.dylan    
(original)
+++ trunk/fundev/Sources/project-manager/tools-interface/project-files.dylan    
Wed Jan  5 15:25:53 2005
@@ -183,7 +183,7 @@
          end
        end method, key(files:));
   let subprojects = 
-         map(compose(curry(as, <locator>), keyval), (subprojects:).key);
+         map(compose(curry(as, <file-locator>), keyval), (subprojects:).key);
   let executable = single-key((executable:).key, executable:);
   let p :: <project-information> = 
          make(<project-information>, files: files, subprojects: subprojects,
-- 
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter