===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.4
retrieving revision 1.3
diff -r1.4 -r1.3
7,8c7
< (define *ruta-base-cgi-bin* "/users/ronald/cgi-bin/")
< (define *nombre-del-script-de-rcs-gopher* "rcs-gopher.sh")
---
> (define *ruta-base-cgi-bin* "/usrs/ronald/cgi-bin/")
13,17d11
< (define (destabulizar cadena)
<   (string-join
<     (string-split cadena #\Tab)
<     "    "))
< 
24,40d17
< (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo)
<   (simple-format #f "~A~A?revs/~A/~A"
<                     *ruta-base-cgi-bin*
<                     *nombre-del-script-de-rcs-gopher*
<                     nombre-de-proyecto
<                     archivo))
< 
< (define (obtener-n??mero-de-revisi??n texto)
< ;(list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1)))))
<   (list-ref
<     (string-split
<       (list-ref
<         (string-split texto #\Tab)
<         0)
<       #\Space)
<     1))
< 
54,56c31,33
<                          "0" (string-titlecase (destabulizar l??nea))
<                          (obtener-selector-de-revisi??n nombre archivo)
<                          (obtener-n??mero-de-revisi??n l??nea)))))
---
>                          "0" (string-capitalize l??nea)
>                          "/users/ronald/cgi-bin/rcs-gopher?revs"
>                          (list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1)))))
68c45
< (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm")
---
> (rcs-revisiones "rcs-gopher" "rcs-gopher_alcance.txt")