fix how l1 and r1 buttons should be handled (previously, we weren't saving the relevant state to true when they were pressed, but now we are)

shell/glfw-gamepad.sml

@@ -148,14 +148,24 @@ struct
           else handleTrianglePressed (xAxis, yAxis)
 
         val () =
-          if r1Pressed = 0 then #r1Pressed state := false
+          if r1Pressed = 0 then
-          else if !(#r1Pressed state) then ()
+            #r1Pressed state := false
-          else InputMailbox.append (CHAR_EVENT #" ")
+          else if !(#r1Pressed state) then
+            ()
+          else
+            let val () = InputMailbox.append (CHAR_EVENT #" ")
+            in #r1Pressed state := true
+            end
 
         val () =
-          if l1Pressed = 0 then #l1Pressed state := false
+          if l1Pressed = 0 then
-          else if !(#l1Pressed state) then ()
+            #l1Pressed state := false
-          else InputMailbox.append KEY_BACKSPACE
+          else if !(#l1Pressed state) then
+            ()
+          else
+            let val () = InputMailbox.append KEY_BACKSPACE
+            in #l1Pressed state := false
+            end
       in
         ()
       end