guile/guile-oops goops.scm

[Mikael Djurfeldt]

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
 ;;