2001-07-09 09:48:27 -04:00
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
(define (vector-map! f v)
|
|
|
|
|
(let ((n (vector-length v)))
|
|
|
|
|
(let loop ((i 0))
|
|
|
|
|
(if (< i n)
|
|
|
|
|
(begin
|
|
|
|
|
(vector-set! v i (f (vector-ref v i)))
|
|
|
|
|
(loop (+ i 1)))
|
- changed variable arguments and return values in set-wm-hints!,
get-wm-hints, set-wm-normal-hints!, get-wm-normal-hints,
create-gcontext, change-gcontext, get-visual-info,
change-window-attributes, get-window-attributes, configure-window,
create-window to use an enumerated type instead of symbols.
- renamed functions in xlib-client (e.g. wm-hints to get-wm-hints).
2002-01-06 11:53:13 -05:00
|
|
|
v))))
|
2002-03-17 10:41:56 -05:00
|
|
|
|
