[REBOL] Problems with remove/part refinement

From: moeller_thorsten::gmx::de at: 18-Aug-2000 8:15

Hi all,

i got following script to clean up and modify a file:

REBOL [
    Title:  "Tsbewout - Cleaner"
    Date:   16-Aug-2000
    File:   %tsbewout.r
    Author: "Thorsten Moeller"
    Purpose: {   Cleans tsbewout-file  }
	]

remove: func [act] [
			script2: read %tsbewout2
			parse script2 [some[to act mark: (remove/part mark 1)]]
			]

script: read %tsbewout

	trim/with script {"}

		write %tsbewout2 script

for month 1 12 1 [ l: length? to-string month
		   if l < 2 [month: rejoin [0 to-integer month]]

			for day 1 31 1 [ year: 100
				l: length? to-string day
				if l < 2 [day: rejoin [0 to-integer day]]
				act: rejoin [year month day]
				remove act
				print act
					]
		]

After starting the script it always hangs with the following error:

1000101
1000102
** Script Error: remove has no refinement called part.
** Where: remove/part mark 1

or it runs in an endless loop in the function.

can anybody help me?

Thorsten

[1] · 2 · See whole thread