mescc: Bugfix for neg.
[mes.git] / scaffold / mini-mes.c
index 9032fe8fd24af4e5a0f44d500930a93118456c42..33bf34f855c399a95a9bb6e3c569386b47688e33 100644 (file)
@@ -1275,14 +1275,7 @@ ash (SCM n, SCM count)
   assert (TYPE (count) == TNUMBER);
   int cn = VALUE (n);
   int ccount = VALUE (count);
-#if __GNUC__
   return MAKE_NUMBER ((ccount < 0) ? cn >> -ccount : cn << ccount);
-#else
-  int x;
-  if (ccount < 0) x = cn >> INT_MIN - ccount;
-  else x = cn << ccount;
-  return MAKE_NUMBER (x);
-#endif
 }
 
 //\f Lib [rest of]