src/Pure/config.ML
changeset 38804 99cc7e748ab4
parent 36787 f60e4dd6d76f
child 39116 f14735a88886
equal deleted inserted replaced
38803:38b68972721b 38804:99cc7e748ab4
    39 fun print_value (Bool true) = "true"
    39 fun print_value (Bool true) = "true"
    40   | print_value (Bool false) = "false"
    40   | print_value (Bool false) = "false"
    41   | print_value (Int i) = signed_string_of_int i
    41   | print_value (Int i) = signed_string_of_int i
    42   | print_value (String s) = quote s;
    42   | print_value (String s) = quote s;
    43 
    43 
    44 fun print_type (Bool _) = "boolean"
    44 fun print_type (Bool _) = "bool"
    45   | print_type (Int _) = "integer"
    45   | print_type (Int _) = "int"
    46   | print_type (String _) = "string";
    46   | print_type (String _) = "string";
    47 
    47 
    48 fun same_type (Bool _) (Bool _) = true
    48 fun same_type (Bool _) (Bool _) = true
    49   | same_type (Int _) (Int _) = true
    49   | same_type (Int _) (Int _) = true
    50   | same_type (String _) (String _) = true
    50   | same_type (String _) (String _) = true