===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.10
retrieving revision 1.9
diff -r1.10 -r1.9
2,5c2,5
< ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones. 
< ;; Para hacer esto, modificar o utilizar de base la funci??n rcs-revisiones y obtener-selector-de-revisi??n.  YA
< ;;    - Funci??n para generar el men?? de revisiones para elegir la primera revisi??n.  YA
< ;;    - Funci??n para generar el men?? de revisiones para elegir la segunda revisi??n y mostrar el diff.  YA
---
> ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones.
> ;; Para hacer esto, modificar o utilizar de base la funci??n rcs-revisiones y obtener-selector-de-revisi??n.
> ;;    - Funci??n para generar el men?? de revisiones para elegir la primera revisi??n.
> ;;    - Funci??n para generar el men?? de revisiones para elegir la segunda revisi??n y mostrar el diff.
87c87
< (define (rcs-revisiones nombre archivo secci??n tipo-de-??tem revisi??n-base)
---
> (define (rcs-revisiones nombre archivo)
99,113c99,105
<           (simple-format #t "~A~A\t~A\t~A\t~A\n"
<                          tipo-de-??tem (string-titlecase (destabulizar l??nea))
<                          (if (null? revisi??n-base)
<                            (obtener-selector-de-revisi??n secci??n
<                                                          nombre
<                                                          archivo
<                                                          (obtener-n??mero-de-revisi??n l??nea)
<                                                          #nil)
<                            (obtener-selector-de-revisi??n secci??n
<                                                          nombre
<                                                          archivo
<                                                          revisi??n-base
<                                                          (obtener-n??mero-de-revisi??n l??nea)))
<                          *host*
<                          *puerto*))))
---
>           (simple-format #t "~A~A\t~A\tsdf.org\t70\n"
>                          "0" (string-titlecase (destabulizar l??nea))
>                          (obtener-selector-de-revisi??n "revs"
>                                                        nombre
>                                                        archivo
>                                                        (obtener-n??mero-de-revisi??n l??nea)
>                                                        #nil)))))
188c180
< (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm" "diffs" 1 #nil)
---
> (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm")