Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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: 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