From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 27 Jul 2011 21:18:27 +0000 (-0700)
Subject: typo in last commit
X-Git-Tag: mit-scheme-pucked-9.2.12~660
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c0bc7de46b0987fe50e2e612340ead918d1c3ce0;p=mit-scheme.git

typo in last commit
---

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)))