avoid unnecessary flushing in readline

fixes to manual
make flush work for readline


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@140 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/sysbits.c

@@ -1240,11 +1240,11 @@ HandleALRM (int s, siginfo_t   *x, ucontext_t *y)
 HandleALRM(int s)
 #endif
 {
+  my_signal (SIGALRM, HandleALRM);
   /* force the system to creep */
   p_creep ();
   /* now, say what is going on */
   PutValue(AtomAlarm, MkAtomTerm(AtomTrue));
-  my_signal (SIGALRM, HandleALRM);
 }
 #endif
 
@@ -1934,7 +1934,7 @@ p_alarm(void)
     Int left;
     Term tout;
 
-    left = alarm(IntOfTerm(t));
+    left = alarm(IntegerOfTerm(t));
     tout = MkIntegerTerm(left);
     return(unify(ARG2,tout));
   }