diff --git a/src/brmelect.scm b/src/brmelect.scm index 336b0bc..669c34b 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -152,9 +152,10 @@ "FOO" `@div{ @,(resource-context-method (current-resource-context)) - @p{"Foo successfully frobnicated for meeting " (number->string id) "."} - @a[(href (string-append "/admin/meeting/" (number->string id)))]{Back to Meeting} + @p{Foo successfully frobnicated for meeting @,(number->string id).} + @a[(href @,(string-append "/admin/meeting/" (number->string id)))]{Back to Meeting} }))) + ;; Returns (possibly cached) SQLite3 DB handle ;(define (brmelect-db) ; (let ((cdb (*cached-brmelect-db*)))