--- gforth/engine/forth.h	2003/11/03 20:13:36	1.59
+++ gforth/engine/forth.h	2004/06/19 18:47:26	1.60
@@ -296,6 +296,9 @@ struct Cellpair file_status(Char *c_addr
 Cell to_float(Char *c_addr, UCell u, Float *rp);
 Float v_star(Float *f_addr1, Cell nstride1, Float *f_addr2, Cell nstride2, UCell ucount);
 void faxpy(Float ra, Float *f_x, Cell nstridex, Float *f_y, Cell nstridey, UCell ucount);
+UCell lshift(UCell u1, UCell n);
+UCell rshift(UCell u1, UCell n);
+
 
 /* signal handler stuff */
 void install_signal_handlers(void);