--- gforth/Attic/envos.fs 2003/03/09 15:16:47 1.6 +++ gforth/Attic/envos.fs 2006/04/01 17:30:32 1.8 @@ -1,6 +1,6 @@ \ envos.fs set os-specific environmental queries 07jul97jaw -\ Copyright (C) 1997,1999,2000 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" linux-gnu" ; set-current