--- gforth/Attic/envos.fs	2003/08/25 14:17:44	1.7
+++ gforth/Attic/envos.fs	2006/04/02 22:38:25	1.9
@@ -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