[REBOL] Find problem from ports

From: ptretter:charter at: 30-Sep-2000 12:24

I was creating a script for IRC when I noticed that the find command doesn't
seem to work right from reading the port and parsing the data but does when
reading from the console with the same functions.  I am reading in a typical
message string into iput-buffer for example (Port is opening a port to irc):

ircparser: func [/local a b c][
    a: parse/all copy input-buffer "!"
    sendnick: pick a 1
    b: pick a 2
    print b
    sendmsg: find b ":"
    print sendmsg
    c: parse copy input-buffer
    senduser: pick c 2
    sendcmd: pick c 3
    sendchan: pick c 4
]

while [true][

  wait port

  input-buffer: copy first port

  if find/part input-buffer ":" 1 [
     input-buffer: remove head input-buffer
     ircparser
  ]

_________________________________ Console Windows _______________
NOTICE AUTH :*** Looking up your hostname...
NOTICE AUTH :*** Found your hostname, cached
NOTICE AUTH :*** Checking Ident
NOTICE AUTH :*** No Ident response
none
** Script Error: find expected series argument of type: series port bitset.
** Where: sendmsg: find b ":"
print

________________________________________________________________

Anyone know what the problem is?

Seems to work ok if I recreate the issue from the console.

[1] · 2 · 3 · 4 · 5 · See whole thread