Re: void variable

[Andreas Schwab]

Stefan Monnier <address@hidden> writes:

> --- orig/src/eval.c
> +++ mod/src/eval.c
> @@ -747,6 +747,20 @@
>       XSYMBOL (sym)->constant = 0;
>        if (NILP (tem))
>       Fset_default (sym, Feval (Fcar (tail)));
> +      else
> +     { /* Check if there is really a global binding rather than just a let
> +          binding that shadows the global unboundness of the var.  */
> +       struct specbinding *pdl = specpdl_ptr;
> +       while (--pdl >= specpdl)
> +         {
> +           if (!pdl->func && EQ (pdl->symbol, sym) && EQ (pdl->old_value, 
> Qunbound))
> +             {
> +               message_with_string ("%s is still globally unbound",
> +                                    SYMBOL_NAME (sym), 1);
> +               pdl = specpdl; /* Don'tlook further.  */

What's wrong with break here?

Andreas.

-- 
Andreas Schwab, SuSE Labs, address@hidden
SuSE Linux AG, Maxfeldstraße 5, 90409 Nürnberg, Germany
Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."