Removing reliance on C99 standard.

websockets.meta

@@ -5,6 +5,6 @@
  (license "BSD")
  (category web)
  (author "Thomas Hintz")
- (depends spiffy intarweb uri-common base64 simple-sha1 mailbox comparse)
+ (depends (spiffy 5.3.1) intarweb uri-common base64 simple-sha1 mailbox comparse)
  (files "websockets.setup" "websockets.meta" "websockets.release-info" "LICENSE"
         "utf8-grammar.scm"))

websockets.release-info

@@ -5,3 +5,5 @@
 (release "0.0.1")
 (release "0.1.0")
 (release "0.1.1")
+(release "0.1.2")
+(release "0.1.3")

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

websockets.setup

@@ -6,4 +6,4 @@
 
 (install-extension 'websockets
                    '("websockets.so" "websockets.import.so")
-                   `((version "0.1.1")))
+                   `((version "0.1.3")))