guile-1.8-20061126
(use-modules (oop goops))
(define-class <c> ())
(define-method (* a (b <c>)) #t)
(* 0 (make <c>))
==> 0
--- orig/libguile/numbers.c 2006-11-29 18:09:22.393764800 +0100
+++ mod/libguile/numbers.c 2006-11-29 18:10:22.319934400 +0100
@@ -4416,12 +4416,6 @@
intbig:
xx = SCM_I_INUM (x);
- switch (xx)
- {
- case 0: return x; break;
- case 1: return y; break;
- }
-
if (SCM_I_INUMP (y))
{
long yy = SCM_I_INUM (y);
_______________________________________________
Bug-guile mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-guile
