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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-18 15:30:48 -0700 (Thu, 18 Aug 2005)
New Revision: 1230

Modified:
   branches/r5rs/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
  - (uim-sh-loop): fix wrong number of argnument


Modified: branches/r5rs/scm/uim-sh.scm
===================================================================
--- branches/r5rs/scm/uim-sh.scm	2005-08-18 22:09:44 UTC (rev 1229)
+++ branches/r5rs/scm/uim-sh.scm	2005-08-18 22:30:48 UTC (rev 1230)
@@ -44,7 +44,7 @@
       (if (not eof)
 	  (begin
 	    ((if  uim-sh-opt-strict-batch
-		  (lambda () #f)
+		  (lambda (obj) #f)
 		  print)
 	     (eval expr '()))
 	    (uim-sh-loop))