From 5c03aad985d3913b9849b551ddee23da35c8c331 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 11 Nov 2008 13:05:26 -0600 Subject: [PATCH] minor simplification --- extra/pack/pack.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/pack/pack.factor b/extra/pack/pack.factor index 889eecb49a..0e5cb7dbbc 100755 --- a/extra/pack/pack.factor +++ b/extra/pack/pack.factor @@ -88,7 +88,7 @@ M: string b, ( n string -- ) heap-size b, ; : (read-128-ber) ( n -- n ) read1 - [ >r 7 shift r> 7 clear-bit bitor ] keep + [ [ 7 shift ] [ 7 clear-bit ] bi* bitor ] keep 7 bit? [ (read-128-ber) ] when ; : read-128-ber ( -- n )