===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.9
retrieving revision 1.8
diff -r1.9 -r1.8
3d2
< ;; Para hacer esto, modificar o utilizar de base la funci??n rcs-revisiones y obtener-selector-de-revisi??n.
43,59c42,48
< (define (obtener-selector-de-revisi??n secci??n nombre-de-proyecto archivo revisi??n-a revisi??n-b)
<   (if (null? revisi??n-b)
<     (simple-format #f "~A~A?~A/~A/~A/~A"
<                       *ruta-base-cgi-bin*
<                       *nombre-del-script-de-rcs-gopher*
<                       secci??n
<                       nombre-de-proyecto
<                       revisi??n-a
<                       archivo)
<     (simple-format #f "~A~A?~A/~A/~A/~A/~A"
<                       *ruta-base-cgi-bin*
<                       *nombre-del-script-de-rcs-gopher*
<                       secci??n
<                       nombre-de-proyecto
<                       revisi??n-a
<                       revisi??n-b
<                       archivo)))
---
> (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo revisi??n)
>   (simple-format #f "~A~A?revs/~A/~A/~A"
>                     *ruta-base-cgi-bin*
>                     *nombre-del-script-de-rcs-gopher*
>                     nombre-de-proyecto
>                     revisi??n
>                     archivo))
64,65c53
<     (obtener-selector-de-revisi??n "revs"
<                                   nombre-de-proyecto
---
>     (obtener-selector-de-revisi??n nombre-de-proyecto
67c55
<                                   "ULT"   #nil)
---
>                                   "ULT")
101,105c89
<                          (obtener-selector-de-revisi??n "revs"
<                                                        nombre
<                                                        archivo
<                                                        (obtener-n??mero-de-revisi??n l??nea)
<                                                        #nil)))))
---
>                          (obtener-selector-de-revisi??n nombre archivo (obtener-n??mero-de-revisi??n l??nea))))))