From ddcc44152f913ec34b866c68a9080e6a35d38b00 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 25 Nov 2016 21:02:03 -0800 Subject: bugfix: unbound var in IP-slash-notation functions. * share/txr/stdlib/socket.tl (sys:str-inaddr-net-impl): Use let* so that calculation of we can see dependent w variable. --- share/txr/stdlib/socket.tl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'share') diff --git a/share/txr/stdlib/socket.tl b/share/txr/stdlib/socket.tl index 45a9cc73..24b2af3f 100644 --- a/share/txr/stdlib/socket.tl +++ b/share/txr/stdlib/socket.tl @@ -101,12 +101,12 @@ (set mask (logior mask (ash mask 4))) (set mask (logior mask (ash mask 8))) (set mask (logior mask (ash mask 16))) - (let ((w (- 32 (width (lognot mask 32)))) - (d (logand addr #xFF)) - (c (logand (ash addr -8) #xFF)) - (b (logand (ash addr -16) #xFF)) - (a (ash addr -24)) - (we (or weff (+ w wextra)))) + (let* ((w (- 32 (width (lognot mask 32)))) + (d (logand addr #xFF)) + (c (logand (ash addr -8) #xFF)) + (b (logand (ash addr -16) #xFF)) + (a (ash addr -24)) + (we (or weff (+ w wextra)))) (cond ((or (> a 255) (minusp a)) (throwf 'eval-error "str-inaddr-net: ~a out of range for IPv4 address" -- cgit v1.2.3