1  #!@GUILE@ \
 2  --no-auto-compile -e main
 3  !#
 4  (use-modules (wayland client display))
 5  
 6  
 7  (define (main . _)
 8    (let* ((w-display (wl-display-connect)))
 9      (unless w-display
10        (display "Unable to connect to wayland compositor")
11        (newline)
12        (exit -1))
13      (display "connect to wayland compositor: ")
14      (display w-display)
15      (newline)
16      (wl-display-disconnect w-display)))