Cleanup

2008-03-14 02:27:51 -05:00 · 2008-03-14 02:27:51 -05:00 · c13d759ec6
parent 90f8aa3136
commit c13d759ec6
1 changed files with 1 additions and 1 deletions
--- a/extra/pack/pack.factor
+++ b/extra/pack/pack.factor
@ -88,7 +88,7 @@ M: string b, ( n string -- ) heap-size b, ;
    read [ zero? ] right-trim dup empty? [ drop f ] when ;

 : (read-128-ber) ( n -- n )
-    1 read first
+    read1
    [ >r 7 shift r> 7 clear-bit bitor ] keep
    7 bit? [ (read-128-ber) ] when ;