[REBOL] My function seems to have no effect
From: richard:coffre:francetelecom at: 15-Apr-2002 11:46
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=E8res
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=E9l. : 01 47 61 46 28
