boudin.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

;;; (boudin) --- A small tasty ssg

(import (boudin))

(define foo (render-string "#,hello from Boudin!"
                           (interaction-environment)))

(define (main . args)
  (print foo)
  (for-each print args))

(cond-expand
  (compiling (apply main (command-line)))
  (else))