diff options
| author | Maxime Devos <maximedevos@telenet.be> | 2022-09-19 22:16:24 +0200 |
|---|---|---|
| committer | Maxime Devos <maximedevos@telenet.be> | 2022-09-19 22:16:24 +0200 |
| commit | efbc801b2f778fef8f534b0b122256628ad678d5 (patch) | |
| tree | e2fb60ea3501c39b018972bcda77732ca9967e40 | |
| parent | 5dcbb76c287025629e8567b431cb838a39d20be0 (diff) | |
| download | gnunet-scheme-bytevector-slices.tar.gz gnunet-scheme-bytevector-slices.zip | |
examples/web: Remove unused procedure 'slice-copy'.bytevector-slices
| -rw-r--r-- | examples/web.scm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/examples/web.scm b/examples/web.scm index 14811f9..823ad75 100644 --- a/examples/web.scm +++ b/examples/web.scm | |||
| @@ -275,11 +275,6 @@ merely a race?"))) | |||
| 275 | 275 | ||
| 276 | (define-once started? #f) | 276 | (define-once started? #f) |
| 277 | 277 | ||
| 278 | (define (slice-copy slice) ; TODO: move to (gnu gnunet utils bv-slice), use elsewhere? | ||
| 279 | (define s (make-slice/read-write (slice-length slice))) | ||
| 280 | (slice-copy! slice s) | ||
| 281 | s) | ||
| 282 | |||
| 283 | (define (url-handler dht-server nse-server cadet-server request body) | 278 | (define (url-handler dht-server nse-server cadet-server request body) |
| 284 | (match (uri-path (request-uri request)) | 279 | (match (uri-path (request-uri request)) |
| 285 | ("/" (respond/html | 280 | ("/" (respond/html |