From 01c982fada0521562e88c5c009c26a0edd51a5d2 Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Wed, 7 Dec 2022 17:54:50 +0300 Subject: [PATCH] Fix parsing canvas width --- _web_server/server/playground-server.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm index 2fe175a..9281116 100755 --- a/_web_server/server/playground-server.scm +++ b/_web_server/server/playground-server.scm @@ -910,7 +910,8 @@ (let ((canvas-width (let ((v (assoc "width" query))) - (and v (string->number (cadr v)) DEFAULT-CANVAS-WIDTH)))) + (or (and v (string->number (cadr v))) + DEFAULT-CANVAS-WIDTH)))) (make-response (make-log-html log vcd canvas-width) #:content-type 'text/plain)))))