typo in last commit

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index e87f59b166b6cd25732bb62f1744042f0729ed01..26a0a4ed01bf6ebd6f19e165d22b65870134a149 100644 (file)
--- 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)))