--- gforth/wf.fs	2005/09/27 13:50:43	1.39
+++ gforth/wf.fs	2006/02/25 14:01:19	1.43
@@ -1,6 +1,6 @@
 \ wiki forth
 
-\ Copyright (C) 2003,2004 Free Software Foundation, Inc.
+\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -655,10 +655,11 @@ definitions
 
 Variable css-file
 Variable content
-Variable lang
+Variable _lang
+Variable _favicon
 
 : lang@  ( -- addr u )
-    lang @ IF  lang $@  ELSE  s" en"  THEN ;
+    _lang @ IF  _lang $@  ELSE  s" en"  THEN ;
 : .css ( -- )
     css-file @ IF  css-file $@len IF
 	    s" StyleSheet" s" rel" opt
@@ -675,6 +676,11 @@ Variable lang
     s" Content-Type" s" http-equiv" opt
     content $@ s" content" opt
     s" meta" tag/ cr .css
+    _favicon @ IF
+	s" shortcut icon" s" rel" opt
+	_favicon $@ href=
+	s" image/x-icon" s" type" opt
+	s" link" tag/ cr  THEN
     s" title" tagged cr
     -env ;
 
@@ -718,7 +724,9 @@ charset iso-8859-1
 : icons
     bl sword icon-prefix $! ;
 : lang
-    bl sword lang $! ;
+    bl sword _lang $! ;
+: favicon
+    bl sword _favicon $! ;
 : expands '# sword expand-prefix $! bl sword expand-postfix $! ;
 
 icons icons