steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

minor simplification

db4
Doug Coleman 2008-11-11 13:05:26 -06:00
parent f6c0c43dd4
commit 5c03aad985
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/pack/pack.factor
View File

@ -88,7 +88,7 @@ M: string b, ( n string -- ) heap-size b, ;
: (read-128-ber) ( n -- n ) : (read-128-ber) ( n -- n )
read1 read1
[ >r 7 shift r> 7 clear-bit bitor ] keep [ [ 7 shift ] [ 7 clear-bit ] bi* bitor ] keep
7 bit? [ (read-128-ber) ] when ; 7 bit? [ (read-128-ber) ] when ;
: read-128-ber ( -- n ) : read-128-ber ( -- n )