diff --git a/scene.scm b/scene.scm index c8c8d4c..4274894 100644 --- a/scene.scm +++ b/scene.scm @@ -126,8 +126,11 @@ (button (@ (click ,(lambda (e) (! counter 0)))) "Reset") (p "The square is: " ,square) - ,(if~ (> (! counter) 20) - `(p "Counter is big!") + ,(if~ (>= (! counter) 20) + `(p "Counter is big!" + ,(if~ (> (! counter) 50) + " Really big!" + "")) `(p "I want to see " ,(~ (- 20 (! counter))) " more"))))) (append-child! (document-body) (element-ref-element root-ref))