Re: [Chicken-users] chicken bug?

[Kon Lovett]

On Nov 7, 2007, at 1:10 PM, naruto canada wrote:

> On 11/7/07, felix winkelmann <address@hidden> wrote:
> > On Nov 5, 2007 4:30 AM, naruto canada <address@hidden> wrote:
> > > Ok, I don't know what to make of this. One thing I noticed was that
> > > "row-reduce" should never have been called. This example don't use
> > > row-reduce.
> >
> > I assume you are calling a continuation with zero return values,  
> > probably in
> > a
> > non-values context. This is according to R5RS not defined, and in  
> > chicken
> > works most of the times, but not always, depending on context.
> >
> > To see a longer backtrace, invoke csi with "-:a256", for example.
>
> Ok, I undetstand the issue, and fix my code.
> Another problem shows up,
> I think this time the problem is not with my code,
> I can't figure out what the error is trying to say: (I've attach  
> both files)
>
> address@hidden: /txt/scheme/grobner  csi grobner-basis.scm
> test-grobner-basis.scm
>
> CHICKEN
> Version 2.732 - linux-unix-gnu-x86      [ symbolgc manyargs dload
> ptables applyhook cross ]
> (c)2000-2007 Felix L. Winkelmann        compiled 2007-11-06 on  
> localhost (Linux)
>
> ; loading grobner-basis.scm ...
> ; loading /usr/lib/chicken/3/numbers.scm ...
> ; loading /usr/lib/chicken/3/numbers-base.so ...
> ; loading test-grobner-basis.scm ...
> [(4),(3),(2)]
> Error: call of non-procedure: -1
>
>         Call history:
>
>         <eval>          [iota] (begin (if (<= count 0) (quote ())
> (cons begin (iota (- count 1) (+ begin inc) inc))))
>         <eval>          [iota] (<= count 0)
>         <eval>          [iota] (cons begin (iota (- count 1) (+  
> begin inc) inc))
>         <eval>          [iota] (iota (- count 1) (+ begin inc) inc)
>         <eval>          [iota] (- count 1)
>         <eval>          [iota] (+ begin inc)
>         <eval>          [iota] (begin (if (<= count 0) (quote ())
> (cons begin (iota (- count 1) (+ begin inc) inc))))
>         <eval>          [iota] (<= count 0)     <--
>
> ;; this is the code for iota
> (define (iota count begin inc)
>   (if (<= count 0) '()
>       (cons begin (iota (- count 1) (+ begin inc) inc))
>   )
> )

Try using 'start' instead of 'begin'.

> Why does it say "call of non-procedure"? This makes no sense, unless
> it thinks "<=" is not a function?
>
> > cheers,
> > felix
> >
> > <grobner-basis.scm><test-grobner-basis.scm>
> _______________________________________________
> Chicken-users mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/chicken-users

Best Wishes,
Kon