diff options
| author | Anonymized <anonymous@example.com> | 2018-01-20 00:15:41 +0100 |
|---|---|---|
| committer | Anonymized <anonymous@example.com> | 2018-01-20 00:15:41 +0100 |
| commit | 39c8f053beccdbed5f926313d3c95f68997a13da (patch) | |
| tree | 150952a0592879039971bb046256687619e6c57b | |
| parent | 34a98f3130725f447740aceb50740857a3b79780 (diff) | |
| download | gnunet-guile2-39c8f053beccdbed5f926313d3c95f68997a13da.tar.gz gnunet-guile2-39c8f053beccdbed5f926313d3c95f68997a13da.zip | |
c3b2: main is public
| -rwxr-xr-x | prototypes/c3b2/web.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/prototypes/c3b2/web.scm b/prototypes/c3b2/web.scm index ab6abd9..c7694e6 100755 --- a/prototypes/c3b2/web.scm +++ b/prototypes/c3b2/web.scm | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | #!/bin/sh | 1 | #!/bin/sh |
| 2 | # -*- scheme -*- | 2 | # -*- scheme -*- |
| 3 | exec guile -L $(pwd) -e '(@@ (web) main)' -s "$0" "$@" | 3 | exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@" |
| 4 | !# | 4 | !# |
| 5 | ;;; Copyright © 2014 David Thompson <davet@gnu.org> | 5 | ;;; Copyright © 2014 David Thompson <davet@gnu.org> |
| 6 | ;;; Copyright © 2015-2017 Amirouche Boubekki <amirouche@hypermove.net> | 6 | ;;; Copyright © 2015-2017 Amirouche Boubekki <amirouche@hypermove.net> |
| @@ -64,7 +64,7 @@ exec guile -L $(pwd) -e '(@@ (web) main)' -s "$0" "$@" | |||
| 64 | (_ (not-found (uri->string (request-uri request))))))) | 64 | (_ (not-found (uri->string (request-uri request))))))) |
| 65 | 65 | ||
| 66 | 66 | ||
| 67 | (define (main _) | 67 | (define-public (main _) |
| 68 | (format #t "Server running @ http://localhost:8080\n") | 68 | (format #t "Server running @ http://localhost:8080\n") |
| 69 | (with-env (env-open* "wt" (list *feature-space*) "create,log=(enabled=true)") | 69 | (with-env (env-open* "wt" (list *feature-space*) "create,log=(enabled=true)") |
| 70 | (run-server handler))) | 70 | (run-server handler))) |