Changeset 38340 in project


Ignore:
Timestamp:
03/25/20 20:39:26 (13 days ago)
Author:
sjamaan
Message:

henrietta: Don't echo out EOF objects when reading empty files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/henrietta/trunk/henrietta.scm

    r38239 r38340  
    177177                        (print "\n#|-------------------- " ver " |# \"" pf "\" "
    178178                               (file-size ff))
    179                         (display (call-with-input-file ff (cut read-string #f <>))))))))
     179                        (let ((contents (call-with-input-file ff (cut read-string #f <>))))
     180                          (unless (eof-object? contents)
     181                            (display contents))))))))
    180182           files)))))
    181183
Note: See TracChangeset for help on using the changeset viewer.