Re: void variable

[Andreas Schwab <schwab@suse.de>]

Stefan Monnier <monnier@iro.umontreal.ca> 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, schwab@suse.de
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."