--- gforth/Attic/engine.c	1994/12/12 17:10:35	1.20
+++ gforth/Attic/engine.c	1994/12/15 12:35:14	1.21
@@ -122,6 +122,9 @@ char *cstr(Char *from, UCell size, int c
 
 #define NEWLINE	'\n'
 
+#ifndef HAVE_RINT
+#define rint(x)	floor((x)+0.5)
+#endif
 
 static char* fileattr[6]={"r","rb","r+","r+b","w+","w+b"};