diff options
| author | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:42:01 +0000 |
|---|---|---|
| committer | Marius Vollmer <mvo@zagadka.de> | 2005-03-02 20:42:01 +0000 |
| commit | 9de87eea47536e25ef99bc25f07afdd759ee3575 (patch) | |
| tree | 936d52588ace67469aba68f6ad47cbf1a12462ca /libguile/rdelim.c | |
| parent | cb1cfc42a4f5ac4d60a64b425795432a0388ad7e (diff) | |
| download | guile-9de87eea47536e25ef99bc25f07afdd759ee3575.tar.gz | |
See ChangeLog from 2005-03-02.
Diffstat (limited to 'libguile/rdelim.c')
| -rw-r--r-- | libguile/rdelim.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/rdelim.c b/libguile/rdelim.c index 98e88779e..656ca1680 100644 --- a/libguile/rdelim.c +++ b/libguile/rdelim.c @@ -71,7 +71,7 @@ SCM_DEFINE (scm_read_delimited_x, "%read-delimited!", 3, 3, 0, start, &cstart, end, &cend); if (SCM_UNBNDP (port)) - port = scm_cur_inp; + port = scm_current_input_port (); else SCM_VALIDATE_OPINPORT (4, port); @@ -208,7 +208,7 @@ SCM_DEFINE (scm_read_line, "%read-line", 0, 1, 0, SCM line, term; if (SCM_UNBNDP (port)) - port = scm_cur_inp; + port = scm_current_input_port (); SCM_VALIDATE_OPINPORT (1,port); pt = SCM_PTAB_ENTRY (port); |