scheme48/scheme/xlib/extension.scm

(define (list-extensions display)
  (vector->list (%list-extensions (display-Xdisplay display))))

(import-lambda-definition-2 %list-extensions (Xdisplay)
  "scx_List_Extensions")

(define (query-extension display name)
  (let ((res (%query-extension (display-Xdisplay display)
			       (if (symbol? name)
				   (string->symbol name)
				   name))))
    (if res
	(vector->list res)
	res)))

(import-lambda-definition-2 %query-extension (Xdisplay name)
  "scx_Query_Extension")