src/Tools/Code/code_scala.ML
changeset 68034 27ba50c79328
parent 68028 1f9f973eed2a
child 69623 ef02c5e051e5
equal deleted inserted replaced
68033:ad4b8b6892c3 68034:27ba50c79328
    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