jennex

Our Wedding Site
git clone git://git.alexkarle.com.com/jennex
Log | Files | Refs | README | LICENSE

dev.scm (400B) [raw]

      1 ;; dev.scm -- "dev mode" (runs main as thread for REPL development)
      2 (import srfi-18
      3         spiffy
      4         (chicken process-context))
      5 
      6 (include "main.scm")
      7 
      8 (access-log "/tmp/rsvp-access.log")
      9 (error-log "/tmp/rsvp-error.log")
     10 
     11 (print "Logging access to " (access-log))
     12 (print "Logging error to " (error-log))
     13 
     14 (define thread
     15   (begin
     16     (thread-start!
     17       (make-thread (lambda () (main '()))))))