--- gforth/libffi.fs	2008/08/05 07:52:44	1.26
+++ gforth/libffi.fs	2008/08/09 21:28:39	1.29
@@ -24,16 +24,9 @@
 c-library libffi
 s" ffi" add-lib
 
-s" os-type" environment? [IF] s" darwin" string-prefix?
-[IF]
-    \c #define MACOSX
-    \c #include <ffi/ffi.h>
-[ELSE]
-    \c #include <ffi.h>
-[THEN]
-[ELSE]
-    \c #include <ffi.h>
-[THEN]
+\ The ffi.h of XCode needs the following line, and it should not hurt elsewhere
+\c #define MACOSX
+include-ffi.h-string save-c-prefix-line \ #include <ffi.h>
 \c extern Cell *gforth_RP;
 \c extern unsigned char *gforth_LP;
 \c static void **gforth_clist;
@@ -344,6 +337,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)