Move match to basis since compiler.tree.debugger uses it, fix conflict

[factor.git] / extra / pack / pack.factor

diff --git a/extra/pack/pack.factor b/extra/pack/pack.factor
index adceab72f6692449112317d10a7addeb1c03492a..b487b385b918ccde3c2c8bd9eac009e9176b6130 100755 (executable)
--- a/extra/pack/pack.factor
+++ b/extra/pack/pack.factor
@@ -84,7 +84,7 @@ M: string b, ( n string -- ) heap-size b, ;
     "\0" read-until [ drop f ] unless ;
 
 : read-c-string* ( n -- str/f )
-    read [ zero? ] right-trim dup empty? [ drop f ] when ;
+    read [ zero? ] trim-right dup empty? [ drop f ] when ;
 
 : (read-128-ber) ( n -- n )
     read1