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

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Mar 27 02:01:35 2008
New Revision: 11756

Modified:
   trunk/fundev/sources/environment/dswank/dswank-exports.dylan
   trunk/fundev/sources/environment/dswank/dswank.dylan
Log:
Job: fd

call walk-stack() earlier and return the abort!

also, don't import environment-protocols application-filename
and application-arguments


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 Mar 27 02:01:35 2008
@@ -23,7 +23,7 @@
   use standard-io;
   use sockets;
   use environment-commands;
-  use environment-protocols;
+  use environment-protocols, exclude: { application-filename, application-arguments };
   use command-lines;
   use commands;
   use source-records;

Modified: trunk/fundev/sources/environment/dswank/dswank.dylan
==============================================================================
--- trunk/fundev/sources/environment/dswank/dswank.dylan	(original)
+++ trunk/fundev/sources/environment/dswank/dswank.dylan	Thu Mar 27 02:01:35 2008
@@ -31,8 +31,8 @@
     list(#":return", list(#":ok", result), request-id);
   exception(e :: <error>)
     format(*standard-error*, "Received error during evalution:\n%=\n", e);
-    list(#":return", #(#":abort"), request-id);
     walk-stack();
+    list(#":return", #(#":abort"), request-id);
   end;
 end;
 
@@ -354,4 +354,4 @@
   end;
 end;
 
-main();
\ No newline at end of file
+main();