mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Make `include' tail-recursive.

Browse source 
* module/ice-9/psyntax.scm (include)[read-file]: Make tail-recursive.

* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Ludovic Courtès 2010-03-19 15:42:20 +01:00
parent 165a8643ae
commit df0f529585
2 changed files with 7771 additions and 7781 deletions
Download patch file Download diff file Expand all files Collapse all files

15541
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

11
module/ice-9/psyntax.scm
View file

@ -2749,11 +2749,14 @@
(define read-file
(lambda (fn k)
(let ((p (open-input-file fn)))
(let f ((x (read p)))
(let f ((x (read p))
(result '()))
(if (eof-object? x)
(begin (close-input-port p) '())
(cons (datum->syntax k x)
(f (read p))))))))
(begin
(close-input-port p)
(reverse result))
(f (read p)
(cons (datum->syntax k x) result)))))))
(syntax-case x ()
((k filename)
(let ((fn (syntax->datum #'filename)))