aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-utility.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r--src/interp/sys-utility.boot6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 04079a7a..f113444f 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -341,6 +341,12 @@ closeFile file ==
CLOSE file
nil
+--%
+stringImage x ==
+ symbol? x => symbolName x
+ string? x => strconc('"_"",x,'"_"")
+ toString x
+
--% Socket I/O
++ Attempt to establish a client TCP/IP socket connection. The IP numeric