--- gforth/libffi.fs	2008/08/05 07:52:44	1.26
+++ gforth/libffi.fs	2008/08/05 09:17:06	1.27
@@ -344,6 +344,7 @@ also c-decl definitions
 ' >dl+ ' >dl-   6 argtype dlong
 ' >sf+ ' >sf-   9 argtype sf
 ' >df+ ' >df- &10 argtype df
+: ints 0 ?DO int LOOP ;
 
 ' noop   0 rettype (void)
 ' is>x   6 rettype (int)