diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-08 15:58:11 +0000 |
| commit | 93ccaef0c60868bb1a6e0747387ce34c0172b53e (patch) | |
| tree | 867f5f7dbb2cdf28ed68ce2bac89f0c8878be657 /libguile/backtrace.c | |
| parent | 43240c9caf66f802ba50df685e3e8b44e38906a5 (diff) | |
* numbers.h (SCM_MAKINUM, SCM_I_MAKINUM): Renamed SCM_MAKINUM to
SCM_I_MAKINUM and changed all uses.
Diffstat (limited to 'libguile/backtrace.c')
| -rw-r--r-- | libguile/backtrace.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 9bf942932..442d7e5c2 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -454,7 +454,7 @@ SCM_DEFINE (scm_display_application, "display-application", 1, 2, 0, /* Create a string port used for adaptation of printing parameters. */ sport = scm_mkstrport (SCM_INUM0, - scm_make_string (SCM_MAKINUM (240), + scm_make_string (scm_from_int (240), SCM_UNDEFINED), SCM_OPN | SCM_WRTNG, FUNC_NAME); @@ -583,7 +583,7 @@ display_frame (SCM frame, int nfield, int indentation, SCM sport, SCM port, scm_ indent (nfield - (i ? i : 1), port); /* Frame number. */ - scm_iprin1 (SCM_MAKINUM (n), port, pstate); + scm_iprin1 (scm_from_int (n), port, pstate); /* Real frame marker */ scm_putc (SCM_FRAME_REAL_P (frame) ? '*' : ' ', port); @@ -677,7 +677,7 @@ display_backtrace_body (struct display_backtrace_args *a) /* Create a string port used for adaptation of printing parameters. */ sport = scm_mkstrport (SCM_INUM0, - scm_make_string (SCM_MAKINUM (240), SCM_UNDEFINED), + scm_make_string (scm_from_int (240), SCM_UNDEFINED), SCM_OPN | SCM_WRTNG, FUNC_NAME); @@ -695,7 +695,7 @@ display_backtrace_body (struct display_backtrace_args *a) unsigned int j; indent_p = 1; - frame = scm_stack_ref (a->stack, SCM_MAKINUM (beg)); + frame = scm_stack_ref (a->stack, scm_from_int (beg)); for (i = 0, j = 0; i < n; ++i) { if (SCM_FRAME_REAL_P (frame)) @@ -712,12 +712,12 @@ display_backtrace_body (struct display_backtrace_args *a) } /* Determine size of frame number field. */ - j = SCM_FRAME_NUMBER (scm_stack_ref (a->stack, SCM_MAKINUM (end))); + j = SCM_FRAME_NUMBER (scm_stack_ref (a->stack, scm_from_int (end))); for (i = 0; j > 0; ++i) j /= 10; nfield = i ? i : 1; /* Print frames. */ - frame = scm_stack_ref (a->stack, SCM_MAKINUM (beg)); + frame = scm_stack_ref (a->stack, scm_from_int (beg)); indentation = 1; last_file = SCM_UNDEFINED; for (i = 0; i < n; ++i) |