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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-08-21 04:15:38 -0700 (Sun, 21 Aug 2005)
New Revision: 1266

Modified:
   branches/r5rs/scm/uim-sh.scm
Log:
* This commits aims to revert wrong merge from trunk in revision 1265.

* scm/uim-sh.scm:
 -(uim-sh-usage): Used display instead of puts.
 -(uim-sh): Commented out use of catch.


Modified: branches/r5rs/scm/uim-sh.scm
===================================================================
--- branches/r5rs/scm/uim-sh.scm	2005-08-21 10:58:32 UTC (rev 1265)
+++ branches/r5rs/scm/uim-sh.scm	2005-08-21 11:15:38 UTC (rev 1266)
@@ -75,8 +75,8 @@
   -B        strict batch mode, implies -b. suppress shell prompts and
             evaluated results\n")
     (if (symbol-bound? 'uim-editline-readline)
-	(puts "  -r [module] Load and import module.\n"))
-    (puts "  -h        show this help\n")))
+	(display "  -r [module] Load and import module.\n"))
+    (display "  -h        show this help\n")))
 
 (define uim-sh
   (lambda (args)
@@ -87,10 +87,11 @@
 	  (if (and uim-editline-enabled
 		   (symbol-bound? 'uim-editline-readline))
 	      (activate-editline))
-	  (if (*catch
-	       'all
-	       (uim-sh-loop))
-	      (uim-sh args))))))
+;	  (if (*catch
+;	       'all
+;	       (uim-sh-loop))
+;	      (uim-sh args))))))
+	       (uim-sh-loop)))))
 
 (if (symbol-bound? 'uim-editline-readline)
     (begin