]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fixed: a missing eta-expansion raised an assert false
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 29 Oct 2010 20:59:56 +0000 (20:59 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 29 Oct 2010 20:59:56 +0000 (20:59 +0000)
matita/matita/matitaGui.ml

index 7f2cb952c859176423d1577b3e734dff86359f0f..a2f03e05602334dd61e1a5d566a7f498fa6e7642 100644 (file)
@@ -856,10 +856,10 @@ class gui () =
           | false -> main#toplevel#unfullscreen ());
       main#fullscreenMenuItem#set_active false;
       MatitaGtkMisc.toggle_callback ~check:main#ppNotationMenuItem
-        ~callback:(
+        ~callback:(function b ->
           let s = s () in
           let status =
-           Interpretations.toggle_active_interpretations s#grafite_status
+           Interpretations.toggle_active_interpretations s#grafite_status b
           in
            assert false (* MATITA1.0 ???
            s#set_grafite_status status*)