[Gd-chatter] r11540 - branches/opendylan-melange/gtk

[andreas at gwydiondylan.org]

Author: andreas
Date: Fri Dec 14 00:22:16 2007
New Revision: 11540

Modified:
   branches/opendylan-melange/gtk/gtk.dylan
Log:
job: fd

This version doesn't overflow the <integer> with pointers to
above 512MB.


Modified: branches/opendylan-melange/gtk/gtk.dylan
==============================================================================
--- branches/opendylan-melange/gtk/gtk.dylan	(original)
+++ branches/opendylan-melange/gtk/gtk.dylan	Fri Dec 14 00:22:16 2007
@@ -97,8 +97,8 @@
                    #key address, #all-keys)
  => (result :: <GTypeInstance>)
   if(address)
-    if (as(<integer>, address) ~= 0)
-      let instance = next-method(<GTypeInstance>, address: address);
+    let instance = next-method(<GTypeInstance>, address: address);
+    if (~ null-pointer?(instance))
       let g-type = g-type-from-instance(instance);
       let dylan-type = find-gtype(g-type);
       unless (dylan-type)