racket/gui cocoa: fix initial eventspace hook

This commit is contained in:
Matthew Flatt 2012-05-16 07:21:55 -06:00
parent 9270936a28
commit 985eecbed7

View File

@ -269,7 +269,7 @@
(import-class NSDate)
(define distantFuture (tell NSDate distantFuture))
(define eventspace-hook (lambda (e) #f))
(define eventspace-hook (lambda (e v) #f))
(define (set-eventspace-hook! proc) (set! eventspace-hook proc))
(define front-hook (lambda () (values #f #f)))