![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to envos.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to envos.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 1998/12/08 22:02:40 | version 1.3, 1999/02/03 00:10:20 |
|---|---|
| Line 19 | Line 19 |
| \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| get-current environment-wordlist set-current | get-current environment-wordlist set-current |
| : os-class s" unix" ; | : os-class ( -- c-addr u ) \ gforth-environment |
| \G Counted string representing a description of the host operating system. | |
| s" unix" ; | |
| set-current | set-current |