diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-07-27 06:55:19 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-07-27 06:55:19 -0700 |
| commit | 11506dadc9c7cfcf425a857e49999071e55ffe1e (patch) | |
| tree | b49e898155b8134034a85c7e4cff5d5fbf42b215 | |
| parent | 64e3d5fb617dc9bf4538aecba8242fa38a3052b3 (diff) | |
| download | txr-11506dadc9c7cfcf425a857e49999071e55ffe1e.tar.gz txr-11506dadc9c7cfcf425a857e49999071e55ffe1e.tar.bz2 txr-11506dadc9c7cfcf425a857e49999071e55ffe1e.zip | |
in6addr-str: remove useless regsub.
* stdlib/socket.tl (in6addr-str): Remove one of
the two repetitions of a string substitution
intended to be done once. The substitution is
idempotent and therefore a second application
of it is redundant regardless of intent.
| -rw-r--r-- | stdlib/socket.tl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/stdlib/socket.tl b/stdlib/socket.tl index 7aecfc88..80a60ec5 100644 --- a/stdlib/socket.tl +++ b/stdlib/socket.tl @@ -252,7 +252,6 @@ (set addr.prefix prefix) addr))) ((r^$ #/[\da-fA-F]*(:[\da-fA-F]*)*/ str) - (upd str (regsub "::" "@")) (let* ((str-splat (regsub "::" "@" str)) (maj-pieces (spl #\@ str-splat))) (caseql (len maj-pieces) |