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

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Mar 25 01:27:41 2008
New Revision: 11750

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

minor nit.


Modified: trunk/fundev/sources/environment/dswank/dswank.dylan
==============================================================================
--- trunk/fundev/sources/environment/dswank/dswank.dylan	(original)
+++ trunk/fundev/sources/environment/dswank/dswank.dylan	Tue Mar 25 01:27:41 2008
@@ -86,7 +86,7 @@
 
 define swank-function set-package (package-name)
   run-compiler(*server*, concatenate("open ", package-name));
-  *project* := package-name;
+  *project* := find-project(package-name);
   list(package-name, package-name);
 end;
 
@@ -100,7 +100,6 @@
 end;
 
 define swank-function compiler-notes-for-emacs ()
-  *project* := open-projects()[0];
   let warnings = project-warnings(*project*);
   let res = make(<stretchy-vector>);
   for (w in warnings)