Revived the lisp test.

All hail the lisp test! Closes SI-4579.
lrytz · Mar 28, 2012 · 97f0324 · 97f0324
1 parent 3e40fb5
commit 97f0324
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/test/disabled/run/lisp.check → test/files/run/lisp.check b/test/disabled/run/lisp.check → test/files/run/lisp.check
@@ -23,4 +23,3 @@ List('lambda, List('x), List('+, List('*, 'x, 'x), 1))
 faculty(10) = 3628800
 faculty(10) = 3628800
 foobar = ("a" "bc" "def" "z")
-
diff --git a/test/disabled/run/lisp.scala → test/files/run/lisp.scala b/test/disabled/run/lisp.scala → test/files/run/lisp.scala
@@ -12,11 +12,11 @@ class LispTokenizer(s: String) extends Iterator[String] {
     while (i < s.length() && s.charAt(i) <= ' ') i += 1
     i < s.length()
   }
-  def next: String = 
+  def next: String =
     if (hasNext) {
       val start = i
       if (isDelimiter(s charAt i)) i += 1
-      else 
+      else
         do i = i + 1
         while (!isDelimiter(s charAt i))
       s.substring(start, i)
@@ -312,7 +312,7 @@ object LispAny extends Lisp {
     case 'cond :: ('else :: expr :: Nil) :: rest =>
         normalize(expr);
     case 'cond :: (test :: expr :: Nil) :: rest =>
-	normalize('if :: test :: expr :: ('cond :: rest) :: Nil)
+        normalize('if :: test :: expr :: ('cond :: rest) :: Nil)
     case 'cond :: 'else :: expr :: Nil =>
       normalize(expr)
     case h :: t =>