Re: let binding with c

Hi Damien,

> some tests:
> 
> test from Jclass in directory examples of bigloo4.2c release :
> 
> ;*---------------------------------------------------------------------*/
> ;*    main ...                                                         */
> ;*---------------------------------------------------------------------*/
> 
> (define-syntax display-msg-symb-nl 
>   (syntax-rules ()
>     ((_ msg symbl)   (begin
> 		       (display msg)
> 		       (display " ")
> 		       (display (symbol->string (quote symbl)))
> 		       (display " = ")
> 		       (display symbl)
> 		       (newline)))))
> 
> 
> (define (main argv)
>    (let loop ((num (if (null? (cdr argv))
> 		       10
> 		       (string->integer (cadr argv)))))
>       (if (<fx num 0)
> 	  (let ((pt (point-new)))
> 	     (print "A interface method: " (intf-met pt))
> 	     (print "A class method: " (point-met pt))
> 	     (point-show pt)
> 	     (newline)
> 	     (print "Number of allocated points: " (point-statistics))
> 	     (print "point-num: " point-num))
> 	  (let ((pt (point-new/int num num)))
> 	     (point-show pt)
> 	     (print "  <-->  Point: " pt " x:" (point-x pt) " y:" (point-y pt))
> 	     (newline)
> 	     (loop (-fx num 1)))))
> 
>    (let ((k 3))
>      (display-msg-symb-nl "main :: " k)))
> ...
Difficult for me to say anything specific here without being able to reproduce
the problem. It would be very nice if you could simplify the problem and
isolate it in a self-contained example. Thanks in advance.

-- 
Manuel