[plt-scheme-es] ayúda

[Francisco Solsona]

"Pablo Cordero" <pab12cr@yahoo.com> writes:

Hola Pablo,

> Podrían indicarme como dar instruccines para una función que imprima
> un archivo de texto (".txt", ".scm" ...)

¿Te refieres a hacer una función en PLT Scheme que reciba un archivo y
lo imprima o algo así?  Si sí, entonces algo así debe funcionar:

(define print-file
  (lambda (filename)
    (if (file-exists? filename)
	(call-with-input-file filename
	  (lambda (ip)
	    (let loop ((ln (read-line ip)))
	      (unless (eof-object? ln)
		(display ln)
		(newline)
		(loop (read-line ip))))))
	(error 'print-file "El archivo ~a no existe." filename))))

claro que puedes usar versiones mucho más simples o más complejas,
pero eso depende de qué quieras exactamente.

saludos,
francisco