r11771 - trunk/fundev/sources/environment/dswank

Author: hannes
Date: Thu Apr  3 11:56:29 2008
New Revision: 11771

Modified:
   trunk/fundev/sources/environment/dswank/dswank-exports.dylan
   trunk/fundev/sources/environment/dswank/dswank.dylan
Log:
Job: minor
use $machine-name and $os-name instead of hardcoded
machine and os

update SLIME version

Modified: trunk/fundev/sources/environment/dswank/dswank-exports.dylan
==============================================================================
--- trunk/fundev/sources/environment/dswank/dswank-exports.dylan	(original)
+++ trunk/fundev/sources/environment/dswank/dswank-exports.dylan	Thu Apr  3 11:56:29 2008
@@ -24,7 +24,10 @@
   use standard-io;
   use sockets;
   use environment-commands;
-  use environment-protocols, exclude: { application-filename, application-arguments };
+  use environment-protocols,
+    exclude: { application-filename,
+	       application-arguments,
+	       run-application };
   use command-lines;
   use commands;
   use source-records;
@@ -34,4 +37,5 @@
   use registry-projects;
   //use stack-walker;
   use release-info;
+  use operating-system;
 end module;

Modified: trunk/fundev/sources/environment/dswank/dswank.dylan
==============================================================================
--- trunk/fundev/sources/environment/dswank/dswank.dylan	(original)
+++ trunk/fundev/sources/environment/dswank/dswank.dylan	Thu Apr  3 11:56:29 2008
@@ -57,7 +57,7 @@
        #":lisp-implementation", list(#":type", "dylan",
                                      #":name", release-product-name(),
                                      #":version", release-version()),
-       #":version", "2008-03-24",
+       #":version", "2008-03-27",
        #":package", #(#":name", "opendylan", #":prompt", "opendylan"));
 end;

@@ -75,7 +75,7 @@
             end;
           end;
         end;
-  let regs = find-registries("x86", "linux");
+  let regs = find-registries($machine-name, $os-name);
   let reg-paths = map(registry-location, regs);
   for (reg-path in reg-paths)
     if (file-exists?(reg-path))
--

-- 
Gd-chatter mailing list
Gd-chatter <at> gwydiondylan.org
https://www.opendylan.org/mailman/listinfo/gd-chatter