core: Stderr_ also print numbers.
* posix.c (stderr_): Handle numbers.
This commit is contained in:
parent
40593ac218
commit
c3a6d70f74
2
posix.c
2
posix.c
|
@ -89,6 +89,8 @@ stderr_ (SCM x)
|
||||||
apply_env (assq_ref_cache (cell_symbol_display, r0), cons (x, cons (MAKE_NUMBER (2), cell_nil)), r0);
|
apply_env (assq_ref_cache (cell_symbol_display, r0), cons (x, cons (MAKE_NUMBER (2), cell_nil)), r0);
|
||||||
else if (TYPE (x) == SPECIAL || TYPE (x) == STRING || TYPE (x) == SYMBOL)
|
else if (TYPE (x) == SPECIAL || TYPE (x) == STRING || TYPE (x) == SYMBOL)
|
||||||
fprintf (stderr, string_to_cstring (x));
|
fprintf (stderr, string_to_cstring (x));
|
||||||
|
else if (TYPE (x) == NUMBER)
|
||||||
|
fprintf (stderr, "%d", VALUE (x));
|
||||||
else
|
else
|
||||||
fprintf (stderr, "display: undefined\n");
|
fprintf (stderr, "display: undefined\n");
|
||||||
return cell_unspecified;
|
return cell_unspecified;
|
||||||
|
|
Loading…
Reference in New Issue