diff options
| author | mihaylov <mihaylov@epfl.ch> | 2006-11-01 16:03:28 +0000 |
|---|---|---|
| committer | mihaylov <mihaylov@epfl.ch> | 2006-11-01 16:03:28 +0000 |
| commit | 257a1845d3db3477a0b5939e94d77b0495d89561 (patch) | |
| tree | 0aedf35621282407918e0f56b3b5ffc0952e6a14 /test/files/run/lisp.scala | |
| parent | 8b0cd5cf7c2a682dd70d6b8ea32b521015bf2269 (diff) | |
| download | scala-257a1845d3db3477a0b5939e94d77b0495d89561.tar.gz scala-257a1845d3db3477a0b5939e94d77b0495d89561.tar.bz2 scala-257a1845d3db3477a0b5939e94d77b0495d89561.zip | |
Refactored portability support
Diffstat (limited to 'test/files/run/lisp.scala')
| -rw-r--r-- | test/files/run/lisp.scala | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/files/run/lisp.scala b/test/files/run/lisp.scala index bf895f2349..8a559bc813 100644 --- a/test/files/run/lisp.scala +++ b/test/files/run/lisp.scala @@ -240,7 +240,7 @@ object LispCaseClasses extends Lisp { if (token == "(") parseList else if (token == ")") error("unbalanced parentheses") else if ('0' <= token.charAt(0) && token.charAt(0) <= '9') - NUM(compat.Platform.parseInt(token)) + NUM(token.toInt) else if (token.charAt(0) == '\"' && token.charAt(token.length()-1)=='\"') STR(token.substring(1,token.length() - 1)) else SYM(token) @@ -432,8 +432,8 @@ object LispAny extends Lisp { if (token == "(") parseList else if (token == ")") error("unbalanced parentheses") //else if (Character.isDigit(token.charAt(0))) - else if (compat.Platform.isDigit(token.charAt(0))) - compat.Platform.parseInt(token) + else if (token.charAt(0).isDigit) + token.toInt else if (token.charAt(0) == '\"' && token.charAt(token.length()-1)=='\"') token.substring(1,token.length() - 1) else Symbol(token) @@ -457,7 +457,7 @@ class LispUser(lisp: Lisp) { def run = { - Console.println(string2lisp("(lambda (x) (+ (* x x) 1))").asInstanceOf[Object]); + Console.println(string2lisp("(lambda (x) (+ (* x x) 1))").asInstanceOf[AnyRef]); Console.println(lisp2string(string2lisp("(lambda (x) (+ (* x x) 1))"))); Console.println; |