Author: yamakenz
Date: Sat Aug 11 15:03:04 2007
New Revision: 4836
Modified:
trunk/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
- (uim-sh-parse-args): Simplify
Modified: trunk/scm/uim-sh.scm
==============================================================================
--- trunk/scm/uim-sh.scm (original)
+++ trunk/scm/uim-sh.scm Sat Aug 11 15:03:04 2007
@@ -85,8 +85,8 @@
(else
(error "invalid action on option table")))
(rec rest))
- (or args
- '())))))
+ args
+ '())))) ;; an action possibly returns #f
(define uim-sh-loop
(lambda (my-read)
