diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-15 10:00:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-15 10:00:12 +0000 |
| commit | ebafd5f858e29cc75f89e098cd8d564cb7d92144 (patch) | |
| tree | 5ae13dc0066a75644dffbf91fad2ea210f36bc71 /src/interp | |
| parent | a03f99212855569fc0298734521a6468df4b2e00 (diff) | |
| download | open-axiom-ebafd5f858e29cc75f89e098cd8d564cb7d92144.tar.gz | |
* boot/tokens.boot: symbolName is now a builtin function.
* interp/sys-utility.boot (stringImage): New.
* interp/format.boot (form2String1): Use it. Tidy.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/format.boot | 3 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 6 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 29093903..3d03184f 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -391,8 +391,7 @@ form2String1 u == constructor? u => app2StringWrap(formWrapId u, [u]) formWrapId u SUBRP u => formWrapId BPINAME u - string? u => formWrapId u - formWrapId toString u + stringImage u u1 := u [op,:argl] := u op='Join or op= 'mkCategory => formJoin1(op,argl) 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 |