mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

(gmtime in another thread): Catch #t all errors from

Browse source 
gmtime in the thread, since it can be a system error not a scheme
out-of-range on 64-bit systems.
This commit is contained in:
Kevin Ryde 2007-01-24 22:01:57 +00:00
parent c010108334
commit 4faeed31c8
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/time.test
View file

@ -1,5 +1,5 @@
;;;; time.test --- test suite for Guile's time functions -*- scheme -*- ;;;; time.test --- test suite for Guile's time functions -*- scheme -*-
;;;; Jim Blandy <jimb@red-bean.com> --- June 1999, 2004 ;;;; Jim Blandy <jimb@red-bean.com> --- June 1999, 2004, 2007
;;;; ;;;;
;;;; Copyright (C) 1999, 2004, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
@ -34,9 +34,9 @@
(alarm 5) (alarm 5)
(false-if-exception (gmtime t)) (false-if-exception (gmtime t))
(join-thread (begin-thread (catch 'out-of-range (join-thread (begin-thread (catch #t
(lambda () (gmtime t)) (lambda () (gmtime t))
(lambda args #f)))) (lambda args #f))))
(alarm 0) (alarm 0)
#t)) #t))