[Gd-chatter] r11764 - trunk/fundev/sources/environment/dswank

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Mar 28 05:19:38 2008
New Revision: 11764

Modified:
   trunk/fundev/sources/environment/dswank/dswank-exports.dylan
   trunk/fundev/sources/environment/dswank/dswank.dylan
Log:
Job: fd
don't use stack-walker, because it only exists on linux.


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	Fri Mar 28 05:19:38 2008
@@ -12,7 +12,7 @@
   use file-source-records;
   use system;
   use registry-projects;
-  use stack-walker;
+  //use stack-walker;
   use release-info;
 end library;
 
@@ -32,6 +32,6 @@
   use file-system;
   use locators;
   use registry-projects;
-  use stack-walker;
+  //use stack-walker;
   use release-info;
 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	Fri Mar 28 05:19:38 2008
@@ -31,7 +31,7 @@
     list(#":return", list(#":ok", result), request-id);
   exception(e :: <error>)
     format(*standard-error*, "Received error during evalution:\n%=\n", e);
-    walk-stack();
+    //walk-stack();
     list(#":return", #(#":abort"), request-id);
   end;
 end;
@@ -203,7 +203,7 @@
               list(#":file", as(<string>, source-name)),
               list(#":line", lineno, column),
               if (search)
-                list(#":snippet" search)
+                list(#":snippet", search)
               else
                 #()
               end));