===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.2
retrieving revision 1.1
diff -r1.2 -r1.1
1c1
< (use-modules (ice-9 rdelim)
---
> (use-modules (ice-9 textual-ports)
4,7d3
< (define *proyectos* '("rcs-gopher"))
< (define *directorio-base-de-proyectos* "/ftp/pub/users/ronald/proyectos-rcs/")
< (define *ruta-base-cgi-bin* "/usrs/ronald/cgi-bin/")
< 
9d4
<   (if (member nombre *proyectos*)
13c8
<               (set! l??nea (read-line puerto))
---
>               (set! l??nea (get-line puerto))
21,29c16
< (define (rcs-ver-revisi??n nombre archivo revisi??n)
<   (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" revisi??n) "proyectos/rcs-gopher/pruebas_rcs/RCS/hola.lisp,v"))
<         (l??nea ""))
<     (while ((lambda ()
<               (set! l??nea (read-line puerto))
<               (not (eof-object? l??nea))))
<       (simple-format #t "~A\n" l??nea))))
< 
< (rcs-ver-revisi??n "hola" "hola.lisp" "1.2")
---
> (rcs-revisiones "hola")