diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-08-29 08:52:28 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-29 09:32:01 -0700 |
| commit | e34a0d27f3a2d8550a70b89de09fe5393aa8212e (patch) | |
| tree | 11f6cdcebeef00336a7b116844920591ca54eae6 | |
| parent | dfc93f894087d99b6b0ff1976b450d3d3d41cd2b (diff) | |
| download | txr-e34a0d27f3a2d8550a70b89de09fe5393aa8212e.tar.gz txr-e34a0d27f3a2d8550a70b89de09fe5393aa8212e.tar.bz2 txr-e34a0d27f3a2d8550a70b89de09fe5393aa8212e.zip | |
buf, carray: remove de trop binding in accessors.
They were forgotten in commit 1fb6f6691d5b6fb6b037bb14073694f651f2b9fc.
* stdlib/ffi.tl (carray-sub, sub-buf): Remove binding which
ensures the new value is evaluated only once (defset does this
already).
| -rw-r--r-- | stdlib/ffi.tl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/stdlib/ffi.tl b/stdlib/ffi.tl index bf1c6111..b9a86b7b 100644 --- a/stdlib/ffi.tl +++ b/stdlib/ffi.tl @@ -165,14 +165,10 @@ (define-accessor carray-ref carray-refset) (defset carray-sub (carray : (from 0) (to t)) items - (with-gensyms (it) - ^(alet ((,it ,items)) - (progn (carray-replace ,carray ,it ,from ,to) ,it)))) + ^(progn (carray-replace ,carray ,items ,from ,to) ,items)) (defset sub-buf (buf : (from 0) (to t)) items - (with-gensyms (it) - ^(alet ((,it ,items)) - (progn (replace-buf ,buf ,it ,from ,to) ,it)))) + ^(progn (replace-buf ,buf ,items ,from ,to) ,items)) (defmacro znew (type . pairs) (if (oddp (length pairs)) |