Index: stml.scm
==================================================================
--- stml.scm
+++ stml.scm
@@ -6,10 +6,13 @@
 ;;  This program is distributed WITHOUT ANY WARRANTY; without even the
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 ;; stml is a list of html strings
+
+(declare (unit stml))
+(include "misc-stml")
 
 ;; extract various tokens from the parameter list
 ;;   'key val => put in the params list
 ;;   strings  => maintain order and add to the datalist <<== IMPORTANT
 (define (s:extract inlst)

ADDED   test.scm
Index: test.scm
==================================================================
--- /dev/null
+++ test.scm
@@ -0,0 +1,22 @@
+(use test md5)
+
+(require-extension sqlite3)
+(import (prefix sqlite3 sqlite3:))
+
+(require-library dbi)
+
+;; (declare (uses stml))
+
+(include "requirements.scm")
+(include "cookie.scm")
+(include "misc-stml.scm")
+(include "formdat.scm")
+(include "stml.scm")
+(include "session.scm")
+(include "sqltbl.scm")
+(include "html-filter.scm")
+(include "keystore.scm")
+
+(define p (open-input-file "test.stml"))
+(print (process-port p))
+(close-input-port p)

ADDED   test.stml
Index: test.stml
==================================================================
--- /dev/null
+++ test.stml
@@ -0,0 +1,10 @@
+;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved.
+;; 
+;; index
+
+(list
+ (s:html
+  (s:head
+   (s:title "Kiatoa")
+   (s:link  'rel "stylesheet" 'type "text/css" 'href "/kiatoa/markup.css")
+   (s:link  'rel "stylesheet" 'type "text/css" 'href "/kiatoa/layout.css"))))