X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fwebsocket%2Fserver.scm;fp=8sync%2Fsystems%2Fwebsocket%2Fserver.scm;h=af0fe1fb5b88af205c7c53d825f6e65e91e42679;hp=6283255ede52bcc5bfc48277e134878a538665fc;hb=e6d0f43cb80edc0ce864c7f54ec41bee6fd2f3c8;hpb=ff48f246f69529102b497dc1de627b8a70f7218f

diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm
index 6283255..af0fe1f 100644
--- a/8sync/systems/websocket/server.scm
+++ b/8sync/systems/websocket/server.scm
@@ -1,6 +1,7 @@
 ;;; guile-websocket --- WebSocket client/server
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
 ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of guile-websocket.
 ;;;
@@ -156,11 +157,11 @@ called for each complete message that is received."
           (loop fragments type))
          ((first-fragment-frame? frame) ; begin accumulating fragments
           (loop (list frame) (frame-type frame)))
+         ((fragment-frame? frame) ; add a fragment
+          (loop (cons frame fragments) type))
          ((final-fragment-frame? frame) ; concatenate all fragments
           (handle-data-frame type (frame-concatenate (reverse fragments)))
           (loop '() #f))
-         ((fragment-frame? frame) ; add a fragment
-          (loop (cons frame fragments) type))
          ((data-frame? frame) ; unfragmented data frame
           (handle-data-frame (frame-type frame) (frame-data frame))
           (loop '() #f)))))))