From 6fe3824bda98a5bb4982847373976d4eb9f584e9 Mon Sep 17 00:00:00 2001 From: Vivianne Langdon Date: Fri, 11 Oct 2024 21:35:51 -0400 Subject: [PATCH] Formatting --- scene.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/scene.scm b/scene.scm index f6b3a81..4b64738 100644 --- a/scene.scm +++ b/scene.scm @@ -112,16 +112,17 @@ (define square (~ (* (! counter) (! counter)))) (define root-ref - (sxml->dom-ref `(div (@ (class "foo")) - (p "this is a test") - (button (@ (id "button") - (type "button") - (click ,(lambda (e) - (! counter (1+ (! counter))) - ;; Hacky hack to ensure root-ref isn't GC'd too early... - (display root-ref)))) - "Counter: " - ,counter) - (p "The square is: " ,square)))) + (sxml->dom-ref + `(div (@ (class "foo")) + (p "this is a test") + (button (@ (id "button") + (type "button") + (click ,(lambda (e) + (! counter (1+ (! counter))) + ;; Hacky hack to ensure root-ref isn't GC'd too early... + (display root-ref)))) + "Counter: " + ,counter) + (p "The square is: " ,square)))) (append-child! (document-body) (element-ref-element root-ref))