[REBOL] My function seems to have no effect

[COFFRE Richard FTO]

Hi Rebol fellows,

Hereafter my code :
REBOL[]
get_func_name: make function! [ chaine ] [
use [ guillemet ] [
   guillemet: make string! {"}
   
   remove/part chaine 6
   
   foo: copy/part chaine 1 1
   if foo == guillemet [ remove/part chaine 1 ]

   ; Supprimer les 2 derniers caract�res
   clear skip tail chaine -2
 
   return (chaine)   
   ]
]

test: copy "123456fonction rearzer  r r12"
print test

print ["toto:" get_func_name [ test ]]

When I test it, I have : 

>> do %get_func.r
Script: "Untitled" (none)
123456fonction rearzer  r r12
toto:

and not something like this : "fonction rearzer  r r"

Richard Coffre
France Telecom Orbiscom
T�l. : 01 47 61 46 28


--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.