test.scm

test.scm pasted by evhan on Fri Jul 31 05:17:56 2026

(import (scheme base))

(define (dump file)
  (let ((input-port (open-input-file file)))
    (let loop ()
      (unless (eof-object? (peek-char input-port))
        (display (read-line input-port))
        (loop)))))

(dump "test.scm")

test.scm pasted by evhan on Fri Jul 31 05:23:57 2026

(import (scheme base))

(define (dump file)
  (let ((input-port (open-input-file file)))
    (let loop ()
      (unless (eof-object? (peek-char input-port))
        (display (read-line input-port))
        (newline) ; added for clarity
        (loop)))))

(dump "test.scm")

output pasted by evhan on Fri Jul 31 05:24:36 2026

import (scheme base))

(define (dump file)
  (let ((input-port (open-input-file file)))
    (let loop ()
      (unless (eof-object? (peek-char input-port))
        (display (read-line input-port))
        (newline) ; added for clarity
        (loop)))))

(dump "test.scm")
#!eof
#!eof
#!eof
#!eof
#!eof
#!eof
#!eof
#!eof

test2.scm pasted by evhan 3 days ago

(import (scheme base)
        (chicken pretty-print))

(define (dump file)
  (let ((input-port (open-input-file file)))
    (let loop ()
      (unless (eof-object? (peek-char input-port))
        (pp (read-line input-port))
        (loop)))))

(dump "test.scm")

test2.scm output added by evhan 3 days ago

"(import (scheme base)"
"        (chicken pretty-print))"
"\n(define (dump file)"
"  (let ((input-port (open-input-file file)))"
"    (let loop ()"
"      (unless (eof-object? (peek-char input-port))"
"        (pp (read-line input-port))"
"        (loop)))))"
"\n(dump \"test2.scm\")"