alien-contrib fix

2006-09-11 10:57:10 +00:00 · 2006-09-11 10:57:10 +00:00 · 2f43d58a47
parent 9490a38638
commit 2f43d58a47
1 changed files with 3 additions and 1 deletions
--- a/contrib/alien.factor
+++ b/contrib/alien.factor
@ -1,4 +1,4 @@
-
+USING: kernel alien sequences ;
 IN: alien-contrib

 : copy-seq-to-float-array ( seq byte-array -- )
@ -8,3 +8,5 @@ swap dup length [ pick set-float-nth ] 2each ;
 dup length "float" <c-array> copy-seq-to-float-array ;

 : float-array>array ( byte-array n -- array ) [ swap float-nth ] map-with ;
+
+PROVIDE: contrib/alien ;