From e812e3cbbef5448f619148c708a2a4063860a914 Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Wed, 22 Oct 2014 09:05:37 -0700
Subject: [PATCH] Removing reliance on C99 standard.

---
 websockets.release-info | 1 +
 websockets.scm          | 8 +++++---
 websockets.setup        | 2 +-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/websockets.release-info b/websockets.release-info
index 625b1ec..6062c8a 100644
--- a/websockets.release-info
+++ b/websockets.release-info
@@ -6,3 +6,4 @@
 (release "0.1.0")
 (release "0.1.1")
 (release "0.1.2")
+(release "0.1.3")
diff --git a/websockets.scm b/websockets.scm
index 1960482..ba629b3 100644
--- a/websockets.scm
+++ b/websockets.scm
@@ -198,14 +198,15 @@
     const unsigned char* __restrict kb = maskkey2;
 
 
-    for (int i = wslen >> 2; i != 0; --i)
+    int i;
+    for (i = wslen >> 2; i != 0; --i)
     {
         *((unsigned int*)wsv) ^= kd;
         wsv += 4;
     }
 
     const int rem = wslen & 3;
-    for (int i = 0; i < rem; ++i)
+    for (i = 0; i < rem; ++i)
     {
         *((unsigned int*)wsv++) ^= kb[i];
     }
@@ -343,7 +344,8 @@
 "
     if (ws_utlen > UINT_MAX) { return -1; }
 
-    for (int i = ws_utlen; i != 0; --i)
+    int i;
+    for (i = ws_utlen; i != 0; --i)
     {
         if (*((unsigned char*)ws_uts++) > 127)
         {
diff --git a/websockets.setup b/websockets.setup
index 470a1f1..3bb4b95 100644
--- a/websockets.setup
+++ b/websockets.setup
@@ -6,4 +6,4 @@
 
 (install-extension 'websockets
                    '("websockets.so" "websockets.import.so")
-                   `((version "0.1.2")))
+                   `((version "0.1.3")))