fix void result to match contract

Merge to 5.1.2 if Robby agrees original commit: 5e0d6e0deed790c8a5104475beb26a156704ec59
2011-07-16 08:38:05 -06:00 · 2011-07-16 08:38:05 -06:00 · 8941903f41
commit 8941903f41
parent 18301de691
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/keymap.rkt
+++ b/collects/framework/private/keymap.rkt
@ -1373,7 +1373,8 @@
             'framework:automatic-parens
             (lambda (id new-val)
               (cond [new-val (add-automatic-paren-bindings)]
-                     [else    (remove-automatic-paren-bindings)]))))
+                     [else    (remove-automatic-paren-bindings)])))
+            (void))
          ))))
  
  (define setup-search