From 7e67cea081449bf321046f2e1d71190184cc507b Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 2 Feb 2013 12:38:08 -0700
Subject: [PATCH] gtk-screen: Name i/o procedures.

Rename a testing procedure to agree with a cousin in Gtk.
---
 src/gtk-screen/gtk-screen.scm        | 8 ++++----
 tests/gtk-screen/test-gtk-screen.scm | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 4e0f773b6..edd9224f1 100644
--- 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 9b4a48dd0..c338a96ff 100644
--- 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 ()
-- 
2.25.1