===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.10
retrieving revision 1.11
diff -r1.10 -r1.11
132a133,152
> (define (rcs-ver-diff nombre archivo revisi??n-a revisi??n-b)
>   (if (and (member nombre *proyectos*)
>            (access? (obtener-ruta-de-archivo
>                       nombre
>                       archivo)
>                     R_OK))
>     (let ((puerto (open-pipe* OPEN_READ "rcsdiff" (simple-format #f "-r~A" (if (string= revisi??n-a "ULT")
>                                                                              ""
>                                                                              revisi??n-a))
>                                                   (simple-format #f "-r~A" (if (string= revisi??n-b "ULT")
>                                                                              ""
>                                                                              revisi??n-b))
>                                                   (obtener-ruta-de-archivo nombre archivo)))
>           (l??nea ""))
>       (while ((lambda ()
>                 (set! l??nea (read-line puerto))
>                 (not (eof-object? l??nea))))
>         (simple-format #t "~A\n" l??nea)))
>     (error-en-archivo "No existe este proyecto o archivo.")))
> 
190a211
> (rcs-ver-diff "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.1" "1.2")