- source-id file-position throw
- \ unless at end-of-file, subtract newline
- source-id file-size throw 2over d= 0= if 1 s>d d- then
- \ subtract line length
- source nip s>d d-
+ source-id file-position throw
+ \ unless at end-of-file, subtract newline
+ source-id file-size throw 2over d= 0= IF 1 s>d d- THEN
+ \ subtract line length
+ source nip s>d d-