Changeset 27401 in project

Timestamp:

09/10/12 21:26:46 (8 years ago)

Author:

felix winkelmann

Message:

irc 1.9.6: applied EOF fix my michael

Location:

release/4/irc

Files:

• tags/1.9.6 (copied) (copied from release/4/irc/trunk)
• tags/1.9.6/irc.scm (modified) (1 diff)
• tags/1.9.6/irc.setup (modified) (1 diff)
• trunk/irc.scm (modified) (1 diff)
• trunk/irc.setup (modified) (1 diff)

release/4/irc/tags/1.9.6/irc.scm

@@ -262 +262 @@
   (parse-reply
    (let loop ()
-     (condition-case (read-input con)
+     (condition-case
+         (let ((line (read-input con)))
+           (when (eof-object? line)
+             (eof-error con))
+           line)
        (ex (exn net timeout)
            ;(print "\n*** timeout - reconnecting")

release/4/irc/tags/1.9.6/irc.setup

@@ -2 +2 @@
 
 (compile -s -O3 -d1 irc.scm -j irc)
-(compile -s -O3 -d1 irc.import.scm)
+(compile -s -O3 -d0 irc.import.scm)
 
 (install-extension 
  'irc 
  '("irc.so" "irc.import.so") 
- '((version 1.9.5)))
+ '((version 1.9.6)))

release/4/irc/trunk/irc.scm

@@ -262 +262 @@
   (parse-reply
    (let loop ()
-     (condition-case (read-input con)
+     (condition-case
+         (let ((line (read-input con)))
+           (when (eof-object? line)
+             (eof-error con))
+           line)
        (ex (exn net timeout)
            ;(print "\n*** timeout - reconnecting")

release/4/irc/trunk/irc.setup

@@ -2 +2 @@
 
 (compile -s -O3 -d1 irc.scm -j irc)
-(compile -s -O3 -d1 irc.import.scm)
+(compile -s -O3 -d0 irc.import.scm)
 
 (install-extension 
  'irc 
  '("irc.so" "irc.import.so") 
- '((version 1.9.5)))
+ '((version 1.9.6)))