This is the mail archive of the guile@cygnus.com mailing list for the guile project.
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
Hi
Sorry if this has been up already.
I have problems with Jacal1a7 that generates a numerical overflow
when I try to load math.scm, 1a5 works.
----------------------------------
guile> ........ERROR: In procedure modulo in expression (modulo (* a b) m):
ERROR: Numerical overflow
ABORT: (numerical-overflow)
guile> (backtrace)
Backtrace:
0* [primitive-load-path "slib/jacal/builtin"]
1* (define _-$1/$2 (make-rat (list $1 0 ...) (list $2 0 ...)))
2 (define-public _-$1/$2 (make-rat (list $1 0 ...) (list $2 0 ...)))
...
3 [eval (define-private _-$1/$2 (make-rat # #))]
4* (define-private _-$1/$2 (make-rat (list $1 0 ...) (list $2 0 ...)))
5* [define (define-private _-$1/$2 (#@make-rat # #)) (#<procedure (symbol define?)>)]
6* [make-rat (#(@1 "..." 1 ...) 0 -1) (#(@2 "..." 2 ...) 0 1)]
7 [list #(:@ "..." #f ...) (#(@1 "..." 1 ...) 0 -1) ...
8* [poly:negate (#(@2 "..." 2 ...) 0 1)]
9 [poly:* -1 (#(@2 "..." 2 ...) 0 1)]
...
10 [cons #(@2 "..." 2 ...) ...
11* [map #<procedure (x)> (0 1)]
12* [#<procedure (x)> 0]
13* [poly:* -1 0]
14 (cond ((and # #) (modular:* *modulus* p1 ...)) ((number? p1) (poly:times-scalar p1 p2)) ...)
...
15 [modulo 0 0]
--------------------------
--
http://wiss.unx.nu
http://linux.unx.nu