Fixing everything for mandatory stack effects

[factor.git] / extra / openal / openal.factor

diff --git a/extra/openal/openal.factor b/extra/openal/openal.factor
index 38d61a88230865db461b22ae6293f62691741ec4..2a8959b4a08e16e2823124b599eecae173e90d96 100644 (file)
--- a/extra/openal/openal.factor
+++ b/extra/openal/openal.factor
@@ -245,7 +245,7 @@ SYMBOL: init
     f init set-global
   ] unless ;
 
-: <uint-array> "ALuint" <c-array> ;
+: <uint-array> ( n -- byte-array ) "ALuint" <c-array> ;
 
 : gen-sources ( size -- seq )
   dup <uint-array> 2dup alGenSources swap c-uint-array> ;