Welcome to the CHICKEN Scheme pasting service

what i'm working on added by retroj on Tue May 8 04:30:57 2012

(define-page (regexp "/style/.*\\.css")
  (lambda (path)
    (let ((scss-file (filepath:join-path
                      (L retrojnet-root
                         "style"
                         (string-append
                          (filepath:take-base-name path)
                          ".scss")))))
      (awful-response-headers '((content-type text/css)))
      (if (file-exists? scss-file)
          (with-output-to-string
            (lambda () (scss->css (eval (last (read-file scss-file))))))
          "/* Not found! */"))) ;;XXX: proper 404 would be better
  no-template: #t)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the result of `(let ((- +)) (- 4 3 8))'?
Visually impaired? Let me spell it for you (wav file) download WAV