Eric Stokes a écrit :
> Try this,
> 
> let eval s =
>   let l = Lexing.from_string s in
>   let ph = !Toploop.parse_toplevel_phrase l in
>   assert(Toploop.execute_phrase false Format.err_formatter ph)
> ;;
> 
> eval (sprintf "#use \"%s\";;" p);;
> 
Thanks very mush !


Kévin.

	

	
		
___________________________________________________________________________ 
Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo! Messenger 
Téléchargez cette version sur http://fr.messenger.yahoo.com