(module hello
        (main main))

(define (sumport port sum-so-far)
  (let ((x (read port)))
    (if (eof-object? x)
        sum-so-far
        (sumport port (+ x sum-so-far)))))

(define (sum port)
  (sumport port 0.0))

(define (go input)
  (call-with-input-file input sum))

(define (main clargs)
  (do ((i 0 (+ i 1)))
      ((= i 25))
    (display (go "/home/osboxes/r7rs-benchmarks/inputs/sum1.data"))
    (newline)))

;; compile with: scc sum1.sc

(module hello
        (main main))

(define (sumport port sum-so-far)
  (let ((x (read port)))
    (if (eof-object? x)
        sum-so-far
        (sumport port (+ x sum-so-far)))))

(define (sum port)
  (sumport port 0.0))

(define (go input)
  (call-with-input-file input sum))

(define (main clargs)
  (do ((i 0 (+ i 1)))
      ((= i 25))
    (display (go "/home/osboxes/r7rs-benchmarks/inputs/sum1.data"))
    (newline)))

osboxes@osboxes:~$ cat sum1.sc
;; -* Scheme -*-
;; Compile with: scc -Ob -Og -Ot -C -O3 sum1.sc

(module sum1
	(main main))

(define (sumport port sum-so-far)
  (let ((x (read port)))
    (if (eof-object? x)
        sum-so-far
        (sumport port (+ x sum-so-far)))))

(define (sum port)
  (sumport port 0.0))

(define (go input)
  (call-with-input-file input sum))

(define (main clargs)
  (do ((i 0 (+ i 1)))
      ((= i 25))
    (display (go "/home/osboxes/r7rs-benchmarks/inputs/sum1.data"))
    (newline)))
osboxes@osboxes:~$ scc -Ob -Og -Ot -C -O3 sum1.sc
sum1.sc:
osboxes@osboxes:~$ ./a.out 
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
15794.97500000012
osboxes@osboxes:~$ 

Don't compile with -C. it only generates the .c file..