2014-01-21: fix the testsuite.

fix the testsuite.

diff --git a/tests/emacs-customization-tex-master.scm b/tests/emacs-customization-tex-master.scm
--- a/tests/emacs-customization-tex-master.scm
+++ b/tests/emacs-customization-tex-master.scm
@@ -1,7 +1,7 @@
 (defun guess-TeX-master (filename)
       "Guess the master file for FILENAME from currently open .tex files."
       (let 
-          (()
+          (
             (candidate nil)
             (filename (file-name-nondirectory filename)))
           (save-excursion
@@ -9,7 +9,7 @@
               (with-current-buffer buffer
 
                 (let 
-                   (()
+                   (
                      (name (buffer-name))
                      (file buffer-file-name))
                    (if 
diff --git a/tests/example.scm b/tests/example.scm
--- a/tests/example.scm
+++ b/tests/example.scm
@@ -1,14 +1,14 @@
 (defun a (b c)
   (let
-    (()
+    (
       (d "i am a string
 do not break me!")
-      (()
+      (
   ; comment: 0
         (f)
 ; comment : 1
         `(g )); comment " : " 2
-      (()
+      (
         (h (I am in brackets:
            do not : change "me"))
         i)))
@@ -27,7 +27,7 @@ do not break me!")
 
 (defun c (e f)
   ((g))
-  (:
+  (
     (h
       (i))
     (j))
diff --git a/tests/readable-tests.scm b/tests/readable-tests.scm
--- a/tests/readable-tests.scm
+++ b/tests/readable-tests.scm
@@ -27,7 +27,7 @@
        (call/cc 
          (lambda (exit)
                 (let loop 
-                  (()
+                  (
                     (lst lst )
                     (sum 0))
                   (if (null? lst)
diff --git a/tests/syntax-colon.scm b/tests/syntax-colon.scm
--- a/tests/syntax-colon.scm
+++ b/tests/syntax-colon.scm
@@ -23,10 +23,10 @@
 (let ((a '())))
 
 (let 
-  (
+  (   ; foo
     (a
       '())))
 
 
 (
-  (a)
+  (a))