From e81b38935154b8d0b027e5b001df002cfd0588e3 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Tue, 29 Dec 2020 03:35:33 +0100 Subject: [PATCH] Updating examples --- examples/example1.scm | 4 ++-- examples/example2.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/example1.scm b/examples/example1.scm index ff6e8ef..415e727 100644 --- a/examples/example1.scm +++ b/examples/example1.scm @@ -1,11 +1,11 @@ ;; Run with 'awful example1.scm'. ;; On web browser open http://localhost:8080/client and watch the ;; new time coming each second from the server. -(use awful-sse awful spiffy posix srfi-18) +(import (chicken time posix) (chicken random) (awful sse) awful spiffy srfi-18) (define (sse-proc) (let loop () - (send-sse-data (seconds->string) id: (random 10) event: "message") + (send-sse-data (seconds->string) id: (pseudo-random-integer 10) event: "message") (thread-sleep! 1) (loop))) diff --git a/examples/example2.scm b/examples/example2.scm index b8c2e0d..486363b 100644 --- a/examples/example2.scm +++ b/examples/example2.scm @@ -2,7 +2,7 @@ ;; Open two web browsers and point both to http://localhost:8080/client. ;; Try clicking on the blue and the red divs and see them changing their ;; boolean values on BOTH browsers. -(use awful-sse awful spiffy json posix srfi-18) +(import (chicken port) (awful sse) awful spiffy json srfi-18) ; Global variables are not good practice, but will suffice for the moment. (define one #t)