--- gforth/Attic/envos.fs	2000/09/23 15:46:53	1.5
+++ gforth/Attic/envos.fs	2006/04/02 22:38:25	1.9
@@ -1,6 +1,6 @@
 \ envos.fs set os-specific environmental queries 	07jul97jaw
 
-\ Copyright (C) 1997,1999 Free Software Foundation, Inc.
+\ Copyright (C) 1997,1999,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -22,4 +22,7 @@ get-current environment-wordlist set-cur
 : os-class ( -- c-addr u ) \ gforth-environment
     \G Counted string representing a description of the host operating system.
     s" unix" ;
+: os-type ( -- c-addr u ) \ gforth-environment
+    \G Counted string equal to "$host_os"
+    s" cygwin" ;
 set-current