hi Manuel, Le Tuesday 25 October 2016 13:45:02 [email protected], vous avez écrit : > 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. > the code works in the Bigloo scheme interpreter, also with the java front-end, but crash when running in a tomcat8 container in the macro on (display (symbol->string (quote symbl))) i think the problem only happens when the code run in a tomcat8 container, if you want i can give you (in a private mail) the whole Sidonie.war file and an archive of source files,if you want to investigate more.
Damien -- [email protected], [email protected], UNS / OCA / CNRS
