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

Cleanup

db4
Slava Pestov 2008-03-14 02:27:51 -05:00
parent 90f8aa3136
commit c13d759ec6
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 [ zero? ] right-trim dup empty? [ drop f ] when ; read [ zero? ] right-trim dup empty? [ drop f ] when ;
: (read-128-ber) ( n -- n ) : (read-128-ber) ( n -- n )
1 read first read1
[ >r 7 shift r> 7 clear-bit bitor ] keep [ >r 7 shift r> 7 clear-bit bitor ] keep
7 bit? [ (read-128-ber) ] when ; 7 bit? [ (read-128-ber) ] when ;