diff options
-rw-r--r-- | rent.scm | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -263,7 +263,8 @@ (house-page-sxml house) `((td *preorder* . ,(lambda (root . children) (sxml-match (cons root children) - ((td (i (@ (class "fa fa-users"))) " " (strong ,maximum-tenants)) + ((td (span (i (@ (class "fa fa-users"))) " Max Tenants:") + " " (strong ,maximum-tenants)) (cons 'result (string->number maximum-tenants))) (,_ #f)))) (*TOP* . ,handle-top) |