如何使用Scheme在屏幕上移动角色？

Question

在使用矢量实现向量分为行和列的屏幕中，如何让字符在键盘输入上移动？ 我已经有了以下内容来创建角色的坐标：

(define direction 'up)
(define (next-pos x y)
    (cond ((eq? 'up direction)
           (cons x (- y element-height)))
          ((eq? 'down direction)
           (cons x (+ y element-height)))
          ((eq? 'left direction)
           (cons (- x element-width) y))
          ((eq? 'right direction)
           (cons (+ x element-width) y))))