--- gforth/wf.fs	2006/01/31 17:08:07	1.42
+++ gforth/wf.fs	2006/02/25 14:01:19	1.43
@@ -654,7 +654,6 @@ definitions
 \ HTML head
 
 Variable css-file
-Variable print-file
 Variable content
 Variable _lang
 Variable _favicon
@@ -664,13 +663,7 @@ Variable _favicon
 : .css ( -- )
     css-file @ IF  css-file $@len IF
 	    s" StyleSheet" s" rel" opt
-	    css-file $@ href= s" screen" s" media" opt
-	    s" text/css" s" type" opt s" link" tag/ cr
-	THEN  THEN ;
-: .print ( -- )
-    print-file @ IF  print-file $@len IF
-	    s" StyleSheet" s" rel" opt
-	    print-file $@ href= s" print" s" media" opt
+	    css-file $@ href=
 	    s" text/css" s" type" opt s" link" tag/ cr
 	THEN  THEN ;
 : .title ( addr u -- )  1 envs ! oldenv off
@@ -682,7 +675,7 @@ Variable _favicon
     s" html" >env cr s" head" >env cr
     s" Content-Type" s" http-equiv" opt
     content $@ s" content" opt
-    s" meta" tag/ cr .css .print
+    s" meta" tag/ cr .css
     _favicon @ IF
 	s" shortcut icon" s" rel" opt
 	_favicon $@ href=
@@ -751,7 +744,6 @@ Variable style$
 : vlink ( -- ) parse" s" vlink" style ;
 : marginheight ( -- ) parse" s" marginheight" style ;
 : css ( -- ) parse" css-file $! ;
-: print-css ( -- ) parse" print-file $! ;
 
 : wf ( -- )
     outfile-id >r