OpenEuphoria

seek() bug?

• Posted by Kat <gertie at PELL.NET> Feb 14, 2002
• 511 views

I think i found a seek() bug.

This doesn't work:
junk_i = seek(indexfile,junk_i)

This does:
seek_i = seek(indexfile,junk_i)

The program snippet is:
-- now open the index.noun and correct all the lines there too
  indexfile = open(index_noun,"u")
  readline = gets(indexfile)
  while not atom(readline) do
    newreadline = replace(readline,origindex_s,realindex_s)
    if not equal(newreadline,readline) then
   trace(1)
      junk_i = where(indexfile)
      junk_i = junk_i - length(readline) - 1
      seek_i = seek(indexfile,junk_i)
      junk_i = where(indexfile)
      puts(indexfile,newreadline)
    end if
    readline = gets(indexfile)
  end while
  close(indexfile)

I kept breaking up the operations in junk_i, and finally replaced junk_i with 
seek_i as the seek() assignee, and it worked. Why is this?

Kat