===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
1c1
< (use-modules (ice-9 textual-ports)
---
> (use-modules (ice-9 rdelim)
3a4,7
> (define *proyectos* '("rcs-gopher"))
> (define *directorio-base-de-proyectos* "/ftp/pub/users/ronald/proyectos-rcs/")
> (define *ruta-base-cgi-bin* "/usrs/ronald/cgi-bin/")
> 
4a9
>   (if (member nombre *proyectos*)
8c13
<               (set! l??nea (get-line puerto))
---
>               (set! l??nea (read-line puerto))
16c21,29
< (rcs-revisiones "hola")
---
> (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")