# HG changeset patch # User Arne Babenhauserheide # Date 1634486398 -7200 # Sun Oct 17 17:59:58 2021 +0200 # Node ID 2ddf2e9bf6115bf5a1a73ccf41ce9effcdf9f37f # Parent 8fab9475316773093cf050ab528046ed4f0f3271 got it working in google cloud diff --git a/dryads-wake.w b/dryads-wake.w --- a/dryads-wake.w +++ b/dryads-wake.w @@ -154,7 +154,9 @@ : equal? 'game-state-version-0 : car first-sexp cdr first-sexp define : game-states + or scandir %data-folder + list define-syntax-rule : define-scene (scene-name state) body ... @@ -565,7 +567,7 @@ define : help args format : current-output-port - . "~a [-i] [--help | --version | --test]\n" + . "~a [-i] [--help | --version | --test | --server [host]]\n" first args define %this-module : current-module diff --git a/guix.scm b/guix.scm --- a/guix.scm +++ b/guix.scm @@ -15,8 +15,8 @@ (version "0.1") (source (local-file "./" "dryads-wake" #:recursive? #t)) (build-system gnu-build-system) - (inputs `( - ("guile" ,guile-3.0) + (propagated-inputs `( + ("guile" ,guile-3.0-latest) ("guile-wisp" ,guile-wisp) ("guile-fibers" ,guile-fibers) ("guile-websocket" ,guile-websocket) diff --git a/websocket.w b/websocket.w --- a/websocket.w +++ b/websocket.w @@ -91,7 +91,7 @@ define static-response ;; use with (format #f ... host port) . "Dryads Wake