Author: yamakenz
Date: Mon Mar 31 08:38:06 2008
New Revision: 5373
Modified:
trunk/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
- (uim-sh): Fix falling into eval loop after script execution
Modified: trunk/scm/uim-sh.scm
==============================================================================
--- trunk/scm/uim-sh.scm (original)
+++ trunk/scm/uim-sh.scm Mon Mar 31 08:38:06 2008
@@ -145,8 +145,6 @@
read))
(EX_OK 0)
(EX_SOFTWARE 70))
- (if script
- (require script))
(cond
(uim-sh-opt-help
(uim-sh-usage)
@@ -165,11 +163,14 @@
(newline)))
EX_OK))
- ((symbol-bound? 'main)
- (let ((status (main file.args)))
- (if (integer? status)
- status
- EX_SOFTWARE)))
+ (script
+ (require script)
+ (if (symbol-bound? 'main)
+ (let ((status (main file.args)))
+ (if (integer? status)
+ status
+ EX_SOFTWARE))
+ EX_OK))
(else
(let reloop ()
