[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-oops goops.scm
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-oops goops.scm |
Date: |
Sat, 21 Oct 2000 15:46:03 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Mikael Djurfeldt <address@hidden> 00/10/21 15:46:03
Modified files:
guile-oops : goops.scm
Log message:
* goops.scm (min-fixum, max-fixnum): New constants.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-oops/goops.scm.diff?r1=1.60&r2=1.61
Patches:
Index: guile/guile-oops/goops.scm
diff -u guile/guile-oops/goops.scm:1.60 guile/guile-oops/goops.scm:1.61
--- guile/guile-oops/goops.scm:1.60 Sun Jun 4 08:35:13 2000
+++ guile/guile-oops/goops.scm Sat Oct 21 15:46:03 2000
@@ -61,6 +61,7 @@
method-more-specific? sort-applicable-methods
class-subclasses class-methods
goops-error
+ min-fixnum max-fixnum
)
;;; *fixme* Should go into goops.c
@@ -80,6 +81,10 @@
%logand)
+(define min-fixnum (- (expt 2 29)))
+
+(define max-fixnum (- (expt 2 29) 1))
+
;;
;; goops-error
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-oops goops.scm,
Mikael Djurfeldt <=