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
