mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

oop goops comment

Browse source 
* module/oop/goops.scm: Add a note about the need to deprecate
  min-fixnum and max-fixnum.
This commit is contained in:
Andy Wingo 2011-04-29 16:34:35 +02:00
parent b735d33b2b
commit 5138551787
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/oop/goops.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003, 2006, 2009, 2010 Free Software Foundation, Inc. ;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003, 2006, 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -97,6 +97,7 @@
(oop goops compile)) (oop goops compile))
;; FIXME: deprecate.
(eval-when (eval load compile) (eval-when (eval load compile)
(define min-fixnum (- (expt 2 29))) (define min-fixnum (- (expt 2 29)))
(define max-fixnum (- (expt 2 29) 1))) (define max-fixnum (- (expt 2 29) 1)))