Author: yamakenz
Date: Fri Aug 17 15:05:26 2007
New Revision: 4855
Modified:
trunk/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
- (uim-sh): Fix ignorance of -B option on -e <expr>
Modified: trunk/scm/uim-sh.scm
==============================================================================
--- trunk/scm/uim-sh.scm (original)
+++ trunk/scm/uim-sh.scm Fri Aug 17 15:05:26 2007
@@ -158,8 +158,10 @@
(uim-sh-opt-expression
(let* ((expr (read (open-input-string uim-sh-opt-arg-expression)))
(result (eval expr (interaction-environment))))
- (write result)
- (newline)
+ (if (not uim-sh-opt-strict-batch)
+ (begin
+ (write result)
+ (newline)))
EX_OK))
((symbol-bound? 'main)
