From 9f565d77c5ee0bb0464e8d88f501d862d419c967 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Wed, 20 May 2015 21:23:12 +0900
Subject: [PATCH] Allow optional sxml for the head section in page.

---
 lib/chibi/snow/fort.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/chibi/snow/fort.scm b/lib/chibi/snow/fort.scm
index 489b5e76..248c8ae5 100644
--- a/lib/chibi/snow/fort.scm
+++ b/lib/chibi/snow/fort.scm
@@ -220,7 +220,7 @@
 (define (fail msg . args)
   `(span (@ (style . "background:red")) ,msg ,@args))
 
-(define (page body)
+(define (page body . o)
   `(html
     (head
      (title "Snow")
@@ -229,7 +229,8 @@
               (rel . "stylesheet")
               (href . "/s/snow.css")))
      (link (@ (rel . "shortcut icon")
-              (href . "/s/favicon.ico"))))
+              (href . "/s/favicon.ico")))
+     ,@o)
     (body
      (div (@ (id . "head"))
           (div (@ (id . "head_pic")) "☃")