mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* Made the port implementations less tightly coupled within guile.

Browse source
This commit is contained in:
Dirk Herrmann 2001-01-25 17:18:41 +00:00
parent 0419a52877
commit a98bddfd12
10 changed files with 83 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/posix.c
View file

@ -716,7 +716,7 @@ SCM_DEFINE (scm_ttyname, "ttyname", 1, 0, 0,
port = SCM_COERCE_OUTPORT (port);
SCM_VALIDATE_OPPORT (1,port);
if (scm_tc16_fport != SCM_TYP16 (port))
if (!SCM_FPORTP (port))
return SCM_BOOL_F;
fd = SCM_FPORT_FDES (port);
SCM_SYSCALL (ans = ttyname (fd));