X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=eightsync%2Frepl.scm;h=37b843f6e95e76dd03a12f4745620f55769d29ec;hp=6180d04e6c1779c6922eac24ad7ee71a39935718;hb=f6a77e5e588057731d5c4f98ae575a20936d4415;hpb=ab1668ffae46ce06c7ffcab68255c628e5142cdb

diff --git a/eightsync/repl.scm b/eightsync/repl.scm
index 6180d04..37b843f 100644
--- a/eightsync/repl.scm
+++ b/eightsync/repl.scm
@@ -1,19 +1,20 @@
-;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>
-
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 3 of the License, or (at your option) any later version.
-;;
-;; This library is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; Lesser General Public License for more details.
-;;
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-;; 02110-1301 USA
+;;; 8sync --- Asynchronous programming for Guile
+;;; Copyright (C) 2015 Christopher Allan Webber <cwebber@dustycloud.org>
+;;;
+;;; This file is part of 8sync.
+;;;
+;;; 8sync is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU Lesser General Public License as
+;;; published by the Free Software Foundation, either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; 8sync is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with 8sync.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (eightsync repl)
   #:use-module (ice-9 q)
@@ -26,7 +27,7 @@
   (define (run-self)
     (poll-coop-repl-server coop-server)
     ;; queue ourselves again
-    (run-delay (run-self) (/ 1 60)))
+    (run-delay (run-self) (/ 1 30)))
   run-self)
 
 (define* (spawn-and-queue-repl-server! agenda #:optional port)