equal
deleted
inserted
replaced
906 fst o Scan.finite Symbol.stopper |
906 fst o Scan.finite Symbol.stopper |
907 (Scan.error (!! (fn _ => |
907 (Scan.error (!! (fn _ => |
908 raise SYNTAX ("Kodkod.extract_instance", |
908 raise SYNTAX ("Kodkod.extract_instance", |
909 "ill-formed Kodkodi output")) |
909 "ill-formed Kodkodi output")) |
910 (parse_instance new_kodkodi))) |
910 (parse_instance new_kodkodi))) |
911 o strip_blanks o explode |
911 o strip_blanks o raw_explode |
912 |
912 |
913 val problem_marker = "*** PROBLEM " |
913 val problem_marker = "*** PROBLEM " |
914 val outcome_marker = "---OUTCOME---\n" |
914 val outcome_marker = "---OUTCOME---\n" |
915 val instance_marker = "---INSTANCE---\n" |
915 val instance_marker = "---INSTANCE---\n" |
916 |
916 |