37 |
|
|
38 |
#include "include.h" |
#include "include.h" |
39 |
#include <unistd.h> |
#include <unistd.h> |
40 |
|
#include "num_include.h" |
41 |
|
|
42 |
#define LINE_LENGTH get_line_length() |
#define LINE_LENGTH get_line_length() |
43 |
#define MINIMUM_RIGHT_MARGIN 1 |
#define MINIMUM_RIGHT_MARGIN 1 |
742 |
case t_fixnum: |
case t_fixnum: |
743 |
{ |
{ |
744 |
object *vsp; |
object *vsp; |
745 |
|
/*FIXME 64*/ |
746 |
|
fixnum i; |
747 |
if (PRINTradix && PRINTbase != 10) |
if (PRINTradix && PRINTbase != 10) |
748 |
write_base(); |
write_base(); |
749 |
i = fix(x); |
i = fix(x); |
755 |
} |
} |
756 |
if (i < 0) { |
if (i < 0) { |
757 |
write_ch('-'); |
write_ch('-'); |
758 |
if (i == MOST_NEG_FIXNUM) { |
if (i == MOST_NEGATIVE_FIX) { |
759 |
x = fixnum_add(1,(MOST_POSITIVE_FIXNUM)); |
x = fixnum_add(1,(MOST_POSITIVE_FIX)); |
760 |
vs_push(x); |
vs_push(x); |
761 |
i = PRINTradix; |
i = PRINTradix; |
762 |
PRINTradix = FALSE; |
PRINTradix = FALSE; |