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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-04 08:34:44 -0700 (Tue, 04 Oct 2005)
New Revision: 1803

Modified:
   branches/r5rs/scm/uim-sh.scm
Log:
* scm/uim-sh.scm
  - (uim-sh-loop): Change indent of 'guard'. Please use
    following configuration for scheme-mode

    (put 'and-let* 'scheme-indent-function 1)
    (put 'receive 'scheme-indent-function 2)
    (put 'guard 'scheme-indent-function 1)


Modified: branches/r5rs/scm/uim-sh.scm
===================================================================
--- branches/r5rs/scm/uim-sh.scm	2005-10-04 15:24:59 UTC (rev 1802)
+++ branches/r5rs/scm/uim-sh.scm	2005-10-04 15:34:44 UTC (rev 1803)
@@ -50,10 +50,10 @@
 	    (guard (err
 		    (else
 		     #f))
-		   ((if uim-sh-opt-strict-batch
-			(lambda (obj) #f)
-			print)
-		    (eval expr '())))
+	      ((if uim-sh-opt-strict-batch
+		   (lambda (obj) #f)
+		   print)
+	       (eval expr '())))
 	    (uim-sh-loop))
 	  #f))))