===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/gophermoles-surtidos/RCS/loteria-img.scm,v
retrieving revision 1.1
retrieving revision 1.6
diff -r1.1 -r1.6
5c5
< (define *directorio-imgns* "/ftp/pub/users/ronald/imgns-lote")
---
> (define *directorio-imgns* "/sdf/ftp/pub/users/ronald/imgns-lote")
8c8
< (define *formato-tarjetas* "lote-~A-fs8.png")
---
> (define *formato-tarjetas* (string-append *directorio-imgns* "lote-~A-fs8.png"))
12c12
<     (if (not (>= *min-tarjetas* num))
---
>     (if (not (>= num *min-tarjetas*))
22c22
<          (puerto  (open-input-file nombre-de-archivo #:binary #t))
---
>          (puerto  (open-input-file nombre #:binary #t))
25a26,27
> 
> (siguiente-tarjeta)