From 7b30ddacbd919dc45b3edc09c55dfa4a6cdcedb4 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Tue, 7 Jul 2026 21:34:15 +0300
Subject: [PATCH] optimized allot

---
 lib.clx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib.clx b/lib.clx
index 0088d0d..d203ad6 100644
--- a/lib.clx
+++ b/lib.clx
@@ -56,4 +56,4 @@
 :: range [ [] [ over over < ] dip swap while [ [ over ] dip qpush [ swap 1 + swap ] dip [ over over < ] dip swap ] nip nip ]
 :: qfor [ dup qlen while [ uncons drop [ [] cons cons ] dip swap dup 0 qget dip uncons drop swap 0 qget dup qlen ] drop drop ]
 :: for [ next next [ i ] dip swap qfor ]
-:: allot [ [] swap dup while [ swap 0 swap cons swap 1 - dup ] drop ]
+:: allot [ [0] swap * ]