diff options
Diffstat (limited to 'share/txr/stdlib/socket.tl')
| -rw-r--r-- | share/txr/stdlib/socket.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/socket.tl b/share/txr/stdlib/socket.tl index 0a872d12..58f81e61 100644 --- a/share/txr/stdlib/socket.tl +++ b/share/txr/stdlib/socket.tl @@ -65,9 +65,9 @@ (defun sys:in6addr-condensed-text (numeric-pieces) - (let* ((str (cat-str [mapcar (load-time (op fmt "~x")) numeric-pieces] ":")) + (let* ((str (cat-str [mapcar (op fmt "~x") numeric-pieces] ":")) (zr (rra #/0(:0)+/ str)) - (lp [pos-max zr : (load-time [callf - to from])]) + (lp [pos-max zr : [callf - to from]]) (lr [zr lp])) (when lp (del [str lr])) |