On Nov 7, 2007, at 1:10 PM, naruto canada wrote:
On 11/7/07, felix winkelmann <[EMAIL PROTECTED]> wrote:
On Nov 5, 2007 4:30 AM, naruto canada <[EMAIL PROTECTED]> 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)
[EMAIL PROTECTED]: /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
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
Best Wishes,
Kon
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users
