I expected to see (/ -3/8) => -8/3, but 8/-3 is OK even though it's not a valid R6RS numeric literal. But then (= 8/-3 (/ -3/8)) should be true. Other weirdness:
(- 8/-3 (/ -3/8)) => 0
(= -8/3 (/ -3/8)) => #f
(- -8/3 (/ -3/8)) => 0
(= -8/3 (/ 1 -3/8)) => #t
(= (/ -3/8) (/ 1 -3/8)) => #f
Launchpad Details: #LP831582 John David Stone - 2011-08-22 15:31:57 -0400
I expected to see (/ -3/8) => -8/3, but 8/-3 is OK even though it's not a valid R6RS numeric literal. But then (= 8/-3 (/ -3/8)) should be true. Other weirdness:
(- 8/-3 (/ -3/8)) => 0
(= -8/3 (/ -3/8)) => #f
(- -8/3 (/ -3/8)) => 0
(= -8/3 (/ 1 -3/8)) => #t
(= (/ -3/8) (/ 1 -3/8)) => #f
Launchpad Details: #LP831582 John David Stone - 2011-08-22 15:31:57 -0400