[uim-commit] r1794 - branches/r5rs/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-04 02:38:12 -0700 (Tue, 04 Oct 2005)
New Revision: 1794

Modified:
   branches/r5rs/scm/util.scm
Log:
* scm/util.scm
  - (try-load, try-require): Fix unspecified use of
    with-exception-handler. See "Examples" section of SRFI-34


Modified: branches/r5rs/scm/util.scm
===================================================================
--- branches/r5rs/scm/util.scm	2005-10-04 09:33:08 UTC (rev 1793)
+++ branches/r5rs/scm/util.scm	2005-10-04 09:38:12 UTC (rev 1794)
@@ -548,19 +548,19 @@
 ;; returns succeeded or not
 (define try-load
   (lambda (file)
-    (with-exception-handler
-      (lambda (err) #f)
-      (lambda ()
-	(load file)))))
+    (guard (err
+	    (else
+	     #f))
+      (load file))))
 
 ;; TODO: write test
 ;; returns succeeded or not
 (define try-require
   (lambda (file)
-    (with-exception-handler
-     (lambda (err) #f)
-     (lambda ()
-       (require file)))))
+    (guard (err
+	    (else
+	     #f))
+      (require file))))
 
 ;; used for dynamic environment substitution of closure
 (define %%enclose-another-env