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 | d5e8aeab7a6cb91e3144c14fed6a5d19dfb4a6db (patch) | |
| tree | b49e898155b8134034a85c7e4cff5d5fbf42b215 | |
| parent | 50de41b73095374a330284f84f592bf56ad797b7 (diff) | |
| download | txr-d5e8aeab7a6cb91e3144c14fed6a5d19dfb4a6db.tar.gz txr-d5e8aeab7a6cb91e3144c14fed6a5d19dfb4a6db.tar.bz2 txr-d5e8aeab7a6cb91e3144c14fed6a5d19dfb4a6db.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) |