diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-27 21:13:20 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-27 21:13:20 +0100 |
commit | 36cc0b901c57947b62118d50ab3152b65d0652f9 (patch) | |
tree | f8d41b6f88716f002c2bec07ba8c12b07f4e1b36 | |
parent | fe8935d432989aa2a71db5bdf6522abee08f09d1 (diff) | |
download | guile-36cc0b901c57947b62118d50ab3152b65d0652f9.tar.gz |
Declare r6rs-ports functions
* libguile/r6rs-ports.h:
* libguile/r6rs-ports.c: Declare scm_unget_bytevector and
scm_i_make_transcoded_port.
-rw-r--r-- | libguile/r6rs-ports.c | 2 | ||||
-rw-r--r-- | libguile/r6rs-ports.h | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c index c6ad90a53..3f936e71b 100644 --- a/libguile/r6rs-ports.c +++ b/libguile/r6rs-ports.c @@ -1181,6 +1181,8 @@ initialize_transcoded_ports (void) scm_set_port_close (transcoded_port_type, tp_close); } +SCM_INTERNAL SCM scm_i_make_transcoded_port (SCM); + SCM_DEFINE (scm_i_make_transcoded_port, "%make-transcoded-port", 1, 0, 0, (SCM port), diff --git a/libguile/r6rs-ports.h b/libguile/r6rs-ports.h index 2ae3e765b..3dde4d5f1 100644 --- a/libguile/r6rs-ports.h +++ b/libguile/r6rs-ports.h @@ -1,7 +1,7 @@ #ifndef SCM_R6RS_PORTS_H #define SCM_R6RS_PORTS_H -/* Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -34,6 +34,7 @@ SCM_API SCM scm_get_bytevector_n (SCM, SCM); SCM_API SCM scm_get_bytevector_n_x (SCM, SCM, SCM, SCM); SCM_API SCM scm_get_bytevector_some (SCM); SCM_API SCM scm_get_bytevector_all (SCM); +SCM_API SCM scm_unget_bytevector (SCM, SCM, SCM, SCM); SCM_API SCM scm_put_u8 (SCM, SCM); SCM_API SCM scm_put_bytevector (SCM, SCM, SCM, SCM); SCM_API SCM scm_open_bytevector_output_port (SCM); |