diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:43:02 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-23 15:43:02 +0000 |
commit | e11e83f3d99305ada6354cae7123fb8c0e998703 (patch) | |
tree | 23dccd2a0fd1741abb8561214acadc347036480b /libguile/gdbint.c | |
parent | 928e0f421070bb610f3375d5808a6378d5edfa1b (diff) | |
download | guile-e11e83f3d99305ada6354cae7123fb8c0e998703.tar.gz |
* deprecated.h, deprecated.c, numbers.h (SCM_INUMP, SCM_NINUMP,
SCM_INUM): Deprecated by reenaming them to SCM_I_INUMP, SCM_I_NINUMP
and SCM_I_INUM, respectively and adding deprecated versions to
deprecated.h and deprecated.c. Changed all uses to either use the
SCM_I_ variants or scm_is_*, scm_to_*, or scm_from_*, as appropriate.
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c index effd735e0..fe7cd7c94 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -183,10 +183,10 @@ gdb_read (char *str) } SCM_BEGIN_FOREIGN_BLOCK; unmark_port (gdb_input_port); - scm_seek (gdb_input_port, SCM_INUM0, SCM_I_MAKINUM (SEEK_SET)); + scm_seek (gdb_input_port, SCM_INUM0, scm_from_int (SEEK_SET)); scm_puts (str, gdb_input_port); scm_truncate_file (gdb_input_port, SCM_UNDEFINED); - scm_seek (gdb_input_port, SCM_INUM0, SCM_I_MAKINUM (SEEK_SET)); + scm_seek (gdb_input_port, SCM_INUM0, scm_from_int (SEEK_SET)); /* Read one object */ tok_buf_mark_p = SCM_GC_MARK_P (tok_buf); SCM_CLEAR_GC_MARK (tok_buf); @@ -242,7 +242,7 @@ gdb_print (SCM obj) RESET_STRING; SCM_BEGIN_FOREIGN_BLOCK; /* Reset stream */ - scm_seek (gdb_output_port, SCM_INUM0, SCM_I_MAKINUM (SEEK_SET)); + scm_seek (gdb_output_port, SCM_INUM0, scm_from_int (SEEK_SET)); scm_write (obj, gdb_output_port); scm_truncate_file (gdb_output_port, SCM_UNDEFINED); { @@ -285,13 +285,13 @@ scm_init_gdbint () scm_print_carefully_p = 0; port = scm_mkstrport (SCM_INUM0, - scm_make_string (SCM_I_MAKINUM (0), SCM_UNDEFINED), + scm_make_string (scm_from_int (0), SCM_UNDEFINED), SCM_OPN | SCM_WRTNG, s); gdb_output_port = scm_permanent_object (port); port = scm_mkstrport (SCM_INUM0, - scm_make_string (SCM_I_MAKINUM (0), SCM_UNDEFINED), + scm_make_string (scm_from_int (0), SCM_UNDEFINED), SCM_OPN | SCM_RDNG | SCM_WRTNG, s); gdb_input_port = scm_permanent_object (port); |