[Gd-chatter] r11615 - in trunk/fundev/sources: common-dylan duim/sheets

[cgay at gwydiondylan.org]

Author: cgay
Date: Thu Jan 10 12:24:19 2008
New Revision: 11615

Modified:
   trunk/fundev/sources/common-dylan/library.dylan
   trunk/fundev/sources/duim/sheets/sheets.dylan
Log:
job: fd
Remove a couple of duplicate definitions, one of which was causing a warning.

Modified: trunk/fundev/sources/common-dylan/library.dylan
==============================================================================
--- trunk/fundev/sources/common-dylan/library.dylan	(original)
+++ trunk/fundev/sources/common-dylan/library.dylan	Thu Jan 10 12:24:19 2008
@@ -75,10 +75,6 @@
     export: { \assert,
 	      \debug-assert,
 	      debug-message };
-  use simple-debugging,
-    export: { \assert,
-              \debug-assert,
-              debug-message };
   use simple-profiling,
     export: { \profiling, 
 	      profiling-type-result };

Modified: trunk/fundev/sources/duim/sheets/sheets.dylan
==============================================================================
--- trunk/fundev/sources/duim/sheets/sheets.dylan	(original)
+++ trunk/fundev/sources/duim/sheets/sheets.dylan	Thu Jan 10 12:24:19 2008
@@ -464,11 +464,6 @@
   logand(sheet-flags(sheet), %sheet_mapped_mask) = %sheet_mapped
 end method sheet-mapped?;
 
-define open generic sheet-mapped?-setter
-    (mapped? :: <boolean>, sheet :: <basic-sheet>,
-     #key do-repaint?, clear?)
- => (mapped? :: <boolean>);
-
 // Map sheets from the bottom up
 // This can only move a sheet tree from the "managed" to the "mapped" state
 define method sheet-mapped?-setter