[Gd-chatter] r11590 - trunk/fundev/sources/deuce

[cgay at gwydiondylan.org]

Author: cgay
Date: Sat Dec 29 23:02:42 2007
New Revision: 11590

Modified:
   trunk/fundev/sources/deuce/editor.dylan
   trunk/fundev/sources/deuce/macros.dylan
Log:
Bug: 4835
Removed calls to debug-message in previous commit.
Fix a compiler warning.

Modified: trunk/fundev/sources/deuce/editor.dylan
==============================================================================
--- trunk/fundev/sources/deuce/editor.dylan	(original)
+++ trunk/fundev/sources/deuce/editor.dylan	Sat Dec 29 23:02:42 2007
@@ -110,17 +110,13 @@
 
 define method buffer-source-location-equals
     (buffer :: <buffer>, locator :: <file-locator>)
-  debug-message("NFB: %=\n", buffer-name(buffer));
   #f
 end method buffer-source-location-equals;
 
 define method buffer-source-location-equals
     (buffer :: <file-buffer-mixin>, locator :: <file-locator>)
   let buffer-pathname = container-pathname(buffer-source-container(buffer));
-  let same? = (as(<file-locator>, buffer-pathname) = locator);
-  debug-message("%= = %=?  %s\n",
-                as(<string>, locator), buffer-pathname, same?);
-  same?
+  locator = as(<file-locator>, buffer-pathname)
 end method buffer-source-location-equals;
 
 

Modified: trunk/fundev/sources/deuce/macros.dylan
==============================================================================
--- trunk/fundev/sources/deuce/macros.dylan	(original)
+++ trunk/fundev/sources/deuce/macros.dylan	Sat Dec 29 23:02:42 2007
@@ -108,7 +108,7 @@
 define macro with-window-locked
   { with-window-locked (?window:expression) ?:body end }
     => { with-thing-locked (?window, window-lock) ?body end }
-end macro with-editor-locked;
+end macro with-window-locked;
 
 define macro with-thing-locked
   { with-thing-locked (?thing:expression, ?accessor:name) ?:body end }