[Chicken-users] Calling routines in kernel32.DLL

[Chess Player]

In order to position the cursor in Windows' console
I've been doing this in newLisp:

(import "kernel32.DLL" "GetStdHandle")
(import "kernel32.DLL" "SetConsoleCursorPosition" )

(constant 'STD_OUTPUT_HANDLE 0xfffffff5)

(define (cons-output-handle)
  (GetStdHandle STD_OUTPUT_HANDLE))

(define (set-cursor-position position)
  (< 0 (SetConsoleCursorPosition
          (cons-output-handle) position)))

(define (at-xy x y)
  (setq x (max x 0))
  (setq y (max y 0))
  (set-cursor-position (| (<< y 16) x) ))

How would I call the DLL routine "SetConsoleCursorPosition"
in Chicken?

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com