equal
deleted
inserted
replaced
34 val i = ord c |
34 val i = ord c |
35 in |
35 in |
36 if i < 32 orelse i > 126 |
36 if i < 32 orelse i > 126 |
37 then chr i |
37 then chr i |
38 else if i >= 128 |
38 else if i >= 128 |
39 then error "non-ASCII byte in Haskell string literal" |
39 then error "non-ASCII byte in Scala string literal" |
40 else c |
40 else c |
41 end |
41 end |
42 in quote o translate_string char end; |
42 in quote o translate_string char end; |
43 |
43 |
44 datatype scala_stmt = Fun of typscheme * ((iterm list * iterm) * (thm option * bool)) list |
44 datatype scala_stmt = Fun of typscheme * ((iterm list * iterm) * (thm option * bool)) list |