Update of /cvsroot/swig/SWIG/Lib/guile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10059/Lib/guile
Modified Files:
common.scm
Log Message:
Don't depend on the presence of the SWIG-PointerAddress function.
Index: common.scm
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/guile/common.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** common.scm 17 May 2004 15:47:17 -0000 1.3
--- common.scm 24 Jul 2004 15:17:15 -0000 1.4
***************
*** 48,52 ****
(define (display-pointer-address o file)
! (display (number->string (SWIG-PointerAddress o) 16) file))
(define-method (write (o <swig>) file)
;; We display _two_ addresses to show the object's identity:
--- 48,58 ----
(define (display-pointer-address o file)
! ;; Don't fail if the function SWIG-PointerAddress is not present.
! (let ((address (false-if-exception (SWIG-PointerAddress o))))
! (if address
! (begin
! (display " @ " file)
! (display (number->string address 16) file)))))
!
(define-method (write (o <swig>) file)
;; We display _two_ addresses to show the object's identity:
***************
*** 62,66 ****
(display #\space file)
(display-address o file)
- (display " @ " file)
(display-pointer-address o file)
(display ">" file))
--- 68,71 ----
***************
*** 68,69 ****
--- 73,76 ----
(export <swig-metaclass> <swig>)
+
+ ;;; common.scm ends here
|