[REBOL] Re: ANNOUNCE: I have catched the source of the read/lines bug !
From: antonr:lexicon at: 31-Mar-2004 13:32
Here is a more reduced version.
It crashes as soon as I engage internet lock.
-Anton
REBOL [
Author: "Giuseppe Chillemi"
Description: "read/lines BUG Catcher"
Notes: {modified by Anton Rolls}
]
logfile: %Activity.log
log: func [string /local ts][
write/append/lines logfile ts: reform [now/time string]
ts
]
write logfile "" ; create new logfile
log "start"
loop 100 [
my-url: http://www.google.com
log "Point 1"
print log "Looping..."
log "Point 2"
; read-page
bug?: no
until [
if error? set/any 'err try [
my-page: read/lines my-url
][
print log rejoin ["! Read Error on page: " my-url mold disarm err]
bug?: yes
]
log "Point 3"
bug?
]
log "Point 4"
]
halt
