[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
generic * and 0
|
From: |
SZAVAI Gyula |
|
Subject: |
generic * and 0 |
|
Date: |
Wed, 29 Nov 2006 18:58:27 +0100 |
|
User-agent: |
Mozilla/5.0 (Windows NT 5.1; hu-HU) Thunderbird/1.5 Mnenhy/0.7.4.666 |
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);
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- generic * and 0,
SZAVAI Gyula <=