[Gd-chatter] r11556 - trunk/fundev/sources/dfmc/definitions

[andreas at gwydiondylan.org]

Author: andreas
Date: Tue Dec 18 01:58:15 2007
New Revision: 11556

Modified:
   trunk/fundev/sources/dfmc/definitions/dependencies.dylan
Log:
job: fd

Protect against form-referenced-variables being #f or #[], as is
the case for certain builtins.  This fixes the type error that
sometimes occurs when browsing applicable methods in the IDE.


Modified: trunk/fundev/sources/dfmc/definitions/dependencies.dylan
==============================================================================
--- trunk/fundev/sources/dfmc/definitions/dependencies.dylan	(original)
+++ trunk/fundev/sources/dfmc/definitions/dependencies.dylan	Tue Dec 18 01:58:15 2007
@@ -831,11 +831,11 @@
     // compressed dependencies as compressed referenced-variables
     // with module name ... module name ... see strip-incremental-slots
     block (return)
-      let vars = form-referenced-variables(form);
+      let vars = form-referenced-variables(form) | #[];
       let from = form-referenced-binding-variables-from(vars);
       iterate search (i :: <integer> = from, module = #f)
-        let elt = vars[i];
         when (i < size(vars))
+          let elt = vars[i];
 	  if (instance?(elt, <module>))
 	    search(i + 1, elt)
 	  elseif (module) // MAKE SURE