diff options
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 2bd991fa..8cc54fad 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -64,4 +64,13 @@ systemAlgebraDirectory() == ensureTrailingSlash cdr dir nil +++ stdStreamIsTerminal: +++ returns 1 if the standard stream is attached to a terminal; +++ otherwise 0. +)if %hasFeature KEYWORD::GCL +import stdStreamIsTerminal for std__stream__is__terminal: INT -> INT +)else +stdStreamIsTerminal fd == + 0 +)endif |