From 48b35f0417a89d141ae9932c4646451f70c5a1a2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 21 Sep 2007 16:55:39 -0400
Subject: [PATCH] Add new word to http.server.templating

---
 extra/http/server/templating/templating.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/http/server/templating/templating.factor b/extra/http/server/templating/templating.factor
index 73535d7dde..f22298f3b4 100644
--- a/extra/http/server/templating/templating.factor
+++ b/extra/http/server/templating/templating.factor
@@ -81,5 +81,9 @@ DEFER: <% delimiter
         ] with-scope
     ] assert-depth drop ;
 
+: run-relative-template-file ( filename -- )
+    file get source-file-path parent-dir
+    swap path+ run-template-file ;
+
 : template-convert ( infile outfile -- )
     <file-writer> [ run-template-file ] with-stream ;