[REBOL] strange

[puetsch]

Hi!

I have the following code:

num: 30
to: load %file
until [
  list: []
  print length? list
  loop num [
    elem: first to
    if elem [ append list elem ]
    to: next to
  ]
  print length? list
  print "---"
  tail? to
]

It gives

0
30
---
30
60
---
60
90
---
90
120
---
120
150

Shouldn't list length be set to zero by
list: []
???

Felix P�tsch

-- 
http://www.ph-cip.uni-koeln.de/~puetsch
Of course I'm crazy, but that doesn't mean I'm wrong.