Welcome to the CHICKEN Scheme pasting service

;; compile.sh
#!/bin/sh
set -e

csc -O2 -d1 program-dummy.scm -j program
rm program-dummy

csc -O2 -d1 -unit gostak -s gostak.scm -J
csc -O2 -d1 program.scm

rm *.import.scm


;; program-dummy.scm (to resolve dependency cycle)
(module program
  *
  (import scheme)

(define make-dosh)

)


;; gostak.scm
(module gostak
  *
  (import chicken scheme program)

(define (distim)
  (print "distimming " (make-dosh) "..."))

)


;; program.scm (the real one)
(load-library 'gostak "./gostak.so")

(module program
  *
  (import chicken scheme gostak)

(define (make-dosh)
  "foo")

(define (main)
  (distim))

)

(import program)
(main)