[chatter] r11781 - trunk/libraries/collection-extensions

Author: agent
Date: Sun Apr 27 18:04:43 2008
New Revision: 11781

Modified:
   trunk/libraries/collection-extensions/collection-utils.dylan
Log:
Job: minor
Fixed collection-extensions:collection-utilities:key-exists?

Modified: trunk/libraries/collection-extensions/collection-utils.dylan
==============================================================================
--- trunk/libraries/collection-extensions/collection-utils.dylan	(original)
+++ trunk/libraries/collection-extensions/collection-utils.dylan	Sun Apr 27 18:04:43 2008
@@ -55,9 +55,9 @@
     (collection :: <collection>, key)
  => (key-exists? :: <boolean>, value :: <object>);
   let result = element(collection, key, default: $not-found);
-  if (result)
-    values(#t, result);
+  if (result == $not-found)
+    values(#f, #f);
   else
-    values(#f, result);
+    values(#t, result);
   end if;
 end method key-exists?;
_______________________________________________
chatter mailing list
chatter <at> lists.opendylan.org
https://www.opendylan.org/mailman/listinfo/chatter