cons-wm-configure-request.scm

(define configure-request
  (let ((wc (make-XWindowChanges)))
    (lambda (ev)
      (XWindowChanges-x-set!		 wc (XConfigureRequestEvent-x            ev))
      (XWindowChanges-y-set!		 wc (XConfigureRequestEvent-y            ev))
      (XWindowChanges-width-set!	 wc (XConfigureRequestEvent-width        ev))
      (XWindowChanges-height-set!	 wc (XConfigureRequestEvent-height       ev))
      (XWindowChanges-border_width-set!	 wc (XConfigureRequestEvent-border_width ev))
      (XWindowChanges-sibling-set!	 wc (XConfigureRequestEvent-above        ev))
      (XWindowChanges-stack_mode-set!	 wc (XConfigureRequestEvent-detail       ev))
      (XConfigureWindow dpy
			(XConfigureRequestEvent-window ev)
			(XConfigureRequestEvent-value_mask ev)
			wc)
      (XSync dpy False))))