From c0bc7de46b0987fe50e2e612340ead918d1c3ce0 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 27 Jul 2011 14:18:27 -0700 Subject: [PATCH] typo in last commit --- src/gtk/gio.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm index e87f59b16..26a0a4ed0 100644 --- a/src/gtk/gio.scm +++ b/src/gtk/gio.scm @@ -195,7 +195,7 @@ USA. (let* ((info (g-input-stream-cancel-info gstream)) (callback-id (g-input-stream-cancel-info-read-id info))) (let ((pending-op (g-input-stream-cancel-info-pending-op info))) - (if (memq pending-op '(#f ERROR CLOSED)) + (if (not (memq pending-op '(#f ERROR CLOSED))) (error "Operation pending:" gstream)) (if pending-op (error "Not open:" gstream))) -- 2.25.1