Support old behavior

2008-04-20 22:20:13 -05:00 · 2008-04-20 22:20:13 -05:00 · cad4a4ea77
parent 40acac17c2
commit cad4a4ea77
1 changed files with 1 additions and 3 deletions
--- a/core/alien/strings/strings.factor
+++ b/core/alien/strings/strings.factor
@ -22,9 +22,7 @@ ERROR: invalid-c-string string ;

 GENERIC# string>alien 1 ( string encoding -- byte-array )

-M: alien string>alien drop ;
-
-M: byte-array string>alien drop ;
+M: c-ptr string>alien drop ;

 M: string string>alien
    over check-string