- fixed some small bugs (in motion-event and rect).

scheme/xlib/event-types.scm

@@ -367,7 +367,7 @@
 			   subwindow time x y x-root y-root state is-hint?
 			   same-screen?)
   (let ((display (make-display display #f)))
-    (create-button-event
+    (create-motion-event
      type serial send-event? display
      (make-window window display #f)
      (make-window root display #f)

scheme/xlib/graphics.scm

@@ -254,7 +254,8 @@
 
 ;; Now some auxiliary functions:
 
-(define rect list)
+(define (rect x y w h)
+  (list x y w h))
 
 (define (rect? obj)
   (and (list? obj) (= 4 (length obj))))