gtk-screen: Name i/o procedures.

Rename a testing procedure to agree with a cousin in Gtk.

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 4e0f773b69ebc69c97ea811033633fd1e7ea12c2..edd9224f14d25be9b30a11e09f9c1c5d2a09493f 100644 (file)
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -526,23 +526,23 @@ USA.
 
 (define (get-gtk-input-operations)
   (values
-   (lambda ()                          ;halt-update?
+   (named-lambda (gtk-screen-halt-update?)
      ;; Large buffers will generate large runs of these traces...
      ;;(%trace2 ";halt-update?")
      (let ((halt? (not (thread-queue/empty? event-queue))))
        ;;(%trace2 " => "halt?"\n")
        halt?))
-   (lambda (msec)                      ;peek-no-hang
+   (named-lambda (gtk-screen-peek-no-hang msec)
      (%trace2 ";peek-no-hang "msec"\n")
      (let ((event (thread-queue/peek-no-hang event-queue msec)))
        (%trace2 ";peek-no-hang "msec" => "event"\n")
        event))
-   (lambda ()                          ;peek
+   (named-lambda (gtk-screen-peek)
      (%trace2 ";peek\n")
      (let ((event (thread-queue/peek event-queue)))
        (%trace2 ";peek => "event"\n")
        event))
-   (lambda ()                          ;read
+   (named-lambda (gtk-screen-read)
      (%trace2 ";read\n")
      (let ((event (thread-queue/dequeue! event-queue)))
        (%trace2 ";read => "event"\n")

diff --git a/tests/gtk-screen/test-gtk-screen.scm b/tests/gtk-screen/test-gtk-screen.scm
index 9b4a48dd07007f034aee6e29ee4a94075b02e5c8..c338a96ff0627ff0a00b4cdc1b41640135da753c 100644 (file)
--- a/tests/gtk-screen/test-gtk-screen.scm
+++ b/tests/gtk-screen/test-gtk-screen.scm
@@ -28,7 +28,7 @@ USA.
 (define ls)
 (define await-closed-windows)
 (define registered-callback-count)
-(define maliens)
+(define malloced-aliens)
 (define (main)
   (let ((new (extend-top-level-environment
              (->environment '(edwin screen gtk-screen))))
@@ -40,8 +40,8 @@ USA.
     (set! await-closed-windows (access await-closed-windows new))
     (set! registered-callback-count
          (access registered-callback-count ffi))
-    (set! maliens (named-lambda (maliens)
-                   (access malloced-aliens ffi))))
+    (set! malloced-aliens (named-lambda (malloced-aliens)
+                           (access malloced-aliens ffi))))
 
   (define-test 'gtk-screens
     (lambda ()