Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned whitespace;
authorwenzelm
Wed, 13 Aug 2014 12:52:26 +0200
changeset 57924 a3360da1d2f0
parent 57923 cdae2467311d
child 57925 2bd92d3f92d7
tuned whitespace;
src/Pure/Isar/local_theory.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/local_theory.ML	Wed Aug 13 10:46:14 2014 +0200
+++ b/src/Pure/Isar/local_theory.ML	Wed Aug 13 12:52:26 2014 +0200
@@ -162,14 +162,13 @@
 (* brittle context -- implicit for nested structures *)
 
 fun mark_brittle lthy =
-  if level lthy = 1
-  then map_bottom (fn (naming, operations, after_close, brittle, target) =>
-    (naming, operations, after_close, true, target)) lthy
+  if level lthy = 1 then
+    map_bottom (fn (naming, operations, after_close, brittle, target) =>
+      (naming, operations, after_close, true, target)) lthy
   else lthy;
 
 fun assert_nonbrittle lthy =
-  if #brittle (top_of lthy)
-  then error "Brittle local theory context"
+  if #brittle (top_of lthy) then error "Brittle local theory context"
   else lthy;
isabelle