[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Testing the reference implementation

This page is part of the web mail archives of SRFI 77 from before July 7th, 2015. The new archives for SRFI 77 contain all messages, not just those from before July 7th, 2015.

On Oct 26, 2005, at 12:47 AM, Michael Sperber wrote:

You can work around it by replacing the definition of /* in
flonum.scm by:

Thanks.  Now in the will package I get the error:

[bradley-luciers-power-mac-g4-cube:~/Desktop/srfi-77/implementation] bjlucier% scheme48
Welcome to Scheme 48 1.3 (made by root on Sat Oct 22 22:26:09 CDT 2005)
Copyright (c) 1993-2005 by Richard Kelsey and Jonathan Rees.
Please report bugs to scheme-48-bugs@xxxxxxxx
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> ,config ,load packages.scm
>  ,in r6rs/will
r6rs/will> ,open srfi-34
r6rs/will> (load "complex-test.scm")
<whole lot of stuff omitted>
(+ +#{Fx 0}+#{Fx 0}i +#{Fx 0}+#{Fx 0}i) => +#{Fx 0}+# {Fx 0}i (- +#{Fx 0}+#{Fx 0}i +#{Fx 0}+#{Fx 0}i) => +#{Fx 0}+# {Fx 0}i (* +#{Fx 0}+#{Fx 0}i +#{Fx 0}+#{Fx 0}i) => +#{Fx 0}+# {Fx 0}i
(/ +#{Fx 0}+#{Fx 0}i +#{Fx 0}+#{Fx 0}i)        =>
Error: contagion error
       #{Procedure 9414 (=/2 in generic-arithmetic/will)}


On a separate note, when I change (display x) to (display (number- >string x)) to get rid of the #{Fx 0}, etc., I get

r6rs/will> (load "complex-test.scm")
(+ +
Error: wrong number of arguments
('#{Procedure 9676 (number2string in numbers-to-strings)} '# {Fx 0} '#{Fx 10})

In the mike package I seem to get an infinite loop. Maybe it's because I'm abusing the semantics of the mike package somehow.

I was hoping to compare what each of the two arithmetics gives to what Gambit 4.0 beta gives, but this is proving difficult.

The current version of the program (with (number->string x)) is included below.


Attachment: complex-test.scm
Description: Binary data