diff options
Diffstat (limited to 'src/fcgi.c')
| -rw-r--r-- | src/fcgi.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -16,7 +16,7 @@ * You should have received a copy of the GNU Affero General Public * License along with Weeb. If not, see <https://www.gnu.org/licenses/>. */ -// gcc $(pkg-config --cflags guile-3.0) -shared -o gfcgi.so -lfcgi -fPIC fcgi.c +// gcc $(pkg-config --cflags guile-3.0) -fPIC -shared -o gfcgi.so $(pkg-config --libs guile-3.0) -lfcgi src/fcgi.c #include "libguile/foreign.h" #include "libguile/gc.h" @@ -64,9 +64,11 @@ SCM FCGI_fread_wrapper(void) { } } - SCM result = scm_from_pointer(buffer, NULL); - result = scm_pointer_to_bytevector(result, SCM_BOOL_F, SCM_BOOL_F, scm_from_int32(size)); - return result; + SCM result = scm_from_pointer(buffer, NULL); + SCM length = scm_from_size_t(size); + SCM offset = scm_from_size_t(0); + SCM u8_type = scm_from_utf8_symbol("u8"); + return scm_pointer_to_bytevector(result, length, offset, u8_type); } void init_libfcgi(void) { |