[Chicken-users] Re: srfi-41

[Kon Lovett]

On May 12, 2009, at 12:16 AM, Joshua Griffith wrote:

Kon,

I may have found an error in the srfi-41 egg.  When attempting to run the stream-find example from the srfi document:

(require-library streams
streams-derived
streams-utils)

(import streams
streams-derived
streams-utils)

(stream-find char=? #\l
  (list->stream
    (string->list "hello")))

I get the following error:

Error: (stream-find) bad `stream' argument type - not a stream: #\l

Call history:

<syntax> (stream-find char=? #\l (list->stream (string->list "hello")))
<syntax> (list->stream (string->list "hello"))
<syntax> (string->list "hello")
<eval> (stream-find char=? #\l (list->stream (string->list "hello")))
<eval> (list->stream (string->list "hello"))
<eval> (string->list "hello") <--

Am I doing something wrong?

There seems to be a problem w/ 'define-inline'. It isn't performing argument identifier "coloring". The use of 'obj' is the body of 'define-inline' procedures is replaced w/ 'obj' so any 'obj' in scope is referenced. The '#\l' above is bound to 'obj' & thus this is the variable used in the argument checks.

I am releasing a new srfi-41 that gets around this problem but need more time to create a real fix.

Thanks,

Josh

Best Wishes,

Kon