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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-04 07:27:49 -0700 (Tue, 04 Oct 2005)
New Revision: 1800

Modified:
   branches/r5rs/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
  - (uim-sh-loop): use guard for handling error. Now, uim-sh works
    even if error occured


Modified: branches/r5rs/scm/uim-sh.scm
===================================================================
--- branches/r5rs/scm/uim-sh.scm	2005-10-04 13:58:31 UTC (rev 1799)
+++ branches/r5rs/scm/uim-sh.scm	2005-10-04 14:27:49 UTC (rev 1800)
@@ -30,6 +30,8 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
+(use srfi-34)
+
 (define uim-sh-prompt "uim> ")
 (define uim-sh-opt-batch #f)
 (define uim-sh-opt-strict-batch #f)
@@ -45,10 +47,13 @@
 	   (eof  (eof-object? expr)))
       (if (not eof)
 	  (begin
-	    ((if  uim-sh-opt-strict-batch
-		  (lambda (obj) #f)
-		  print)
-	     (eval expr '()))
+	    (guard (err
+		    (else
+		     #f))
+		   ((if uim-sh-opt-strict-batch
+			(lambda (obj) #f)
+			print)
+		    (eval expr '())))
 	    (uim-sh-loop))
 	  #f))))