summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-27 21:13:20 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-27 21:13:20 +0100
commit36cc0b901c57947b62118d50ab3152b65d0652f9 (patch)
treef8d41b6f88716f002c2bec07ba8c12b07f4e1b36
parentfe8935d432989aa2a71db5bdf6522abee08f09d1 (diff)
downloadguile-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.c2
-rw-r--r--libguile/r6rs-ports.h3
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);