equal
deleted
inserted
replaced
178 NONE => "" |
178 NONE => "" |
179 | SOME version => " (" ^ version ^ ")"); |
179 | SOME version => " (" ^ version ^ ")"); |
180 |
180 |
181 fun isabelle_name () = getenv_strict "ISABELLE_NAME"; |
181 fun isabelle_name () = getenv_strict "ISABELLE_NAME"; |
182 |
182 |
183 fun identification () = "Isabelle/" ^ isabelle_id () ^ isabelle_heading (); |
183 fun identification () = |
|
184 "Isabelle" ^ (case try isabelle_id () of SOME id => "/" ^ id | NONE => "") ^ isabelle_heading (); |
184 |
185 |
185 end; |
186 end; |