得到一个＆＃34;应用程序不是一个程序＆＃34; （方案）

Question

我想要实现的是在视口上注册左键。在视口上执行单击后，我收到一条错误消息，指出该应用程序不是一个过程，期望一个可以应用于参数的过程

任何人都可以指导我这段代码有什么问题吗？

(define mclick (get-mouse-click vp))

(if (left-mouse-click? mclick)
            (if 
(and (> (posn-x (mouse-click-posn mclick)) (50))(< (posn-x (mouse-click-posn mclick)) (99))
     (> (posn-y (mouse-click-posn mclick)) (50))(< (posn-y (mouse-click-posn mclick)) (99)))

                (set! c1 ((draw-solid-rectangle vp) (make-posn 50 50) 50 500 "green"))
            )
    )

Answer 1

50和99不是程序。因此，评估(50)和(99)无效。