Updating examples

Daniel Ziltener 2 years ago
parent 324324c4a9
commit e81b389351

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

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