diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-03-03 07:57:26 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-03-03 07:57:26 -0800 |
| commit | d6e7978be1b7f3c4ab81db87b6f15f3f26ac25ab (patch) | |
| tree | 23ee309dc90bc26eb89be2fe40580d78dfe3ddee | |
| parent | bae56aea71113c94afecd085d54209feb6a85937 (diff) | |
| download | txr-d6e7978be1b7f3c4ab81db87b6f15f3f26ac25ab.tar.gz txr-d6e7978be1b7f3c4ab81db87b6f15f3f26ac25ab.tar.bz2 txr-d6e7978be1b7f3c4ab81db87b6f15f3f26ac25ab.zip | |
lib: remove unnecessary load-time forms.
Because of the previous optimization, some load-time forms
that appear in the library are unnecessary.
* share/txr/stdlib/optimize.tl (basic-blocks
merge-jump-thunks): Remove load-time around functional
combinators.
* share/txr/stdlib/socket.tl (sys:in6addr-condensed-text):
Remove one load-time that is now unnecessary, and one around
an op which was unnecessary even at the time it was written,
since the lambda is lifted without it.
| -rw-r--r-- | share/txr/stdlib/optimize.tl | 15 | ||||
| -rw-r--r-- | share/txr/stdlib/socket.tl | 4 |
2 files changed, 9 insertions, 10 deletions
diff --git a/share/txr/stdlib/optimize.tl b/share/txr/stdlib/optimize.tl index af684aea..b4722f56 100644 --- a/share/txr/stdlib/optimize.tl +++ b/share/txr/stdlib/optimize.tl @@ -468,15 +468,14 @@ bb.(join-blocks)) (defmeth basic-blocks merge-jump-thunks (bb) - (let* ((candidates (mappend (load-time - [andf [chain .links len (op eql 1)] - [chain .insns len (lop < 4)] - [chain .insns last car - [iff consp - [chain car (op eq 'jmp)]]] - list]) + (let* ((candidates (mappend [andf [chain .links len (op eql 1)] + [chain .insns len (lop < 4)] + [chain .insns last car + [iff consp + [chain car (op eq 'jmp)]]] + list] bb.list)) - (hash (group-by (load-time [chain .insns cdr]) candidates))) + (hash (group-by [chain .insns cdr] candidates))) (dohash (insns bls hash) (when (cdr bls) (whenlet ((keep (or (keep-if (op some @1.rlinks (op eq @@1) .next) bls) 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])) |