Welcome to the CHICKEN Scheme pasting service
4.8.0rc4 segfault pasted by andyjpb on Tue Sep 18 19:46:09 2012
unbound variable
##sys#list
Call history:
<syntax> (##sys#list (##core#quote media) (##core#quote "all"))
<syntax> (##core#quote media)
<syntax> (##core#quote "all")
<syntax> (##sys#cons (##core#quote body) (##sys#cons (##sys#list (##core#quote h1) (##core#quote "Helveticard...
<syntax> (##core#quote body)
<syntax> (##sys#cons (##sys#list (##core#quote h1) (##core#quote "Helveticards")) contents)
<syntax> (##sys#list (##core#quote h1) (##core#quote "Helveticards"))
<syntax> (##core#quote h1)
<syntax> (##core#quote "Helveticards")
<eval> (##sys#list (##sys#list (##core#quote literal) (##core#quote "<!DOCTYPE html>")) (##sys#list (##core......
spiffy.scm:461: k683
spiffy.scm:332: current-response519520
spiffy.scm:332: current-response519520
spiffy.scm:461: g687
spiffy.scm:471: handle-exception
spiffy.scm:472: with-output-to-string <--
thread199: Closing off
no title pasted by anonymous on Tue Sep 18 19:52:02 2012
unbound variable
##sys#list
Call history:
intarweb.scm:633: ##sys#get-keyword
intarweb.scm:633: ##sys#get-keyword
intarweb.scm:633: ##sys#get-keyword
intarweb.scm:633: ##sys#get-keyword
intarweb.scm:633: old-make
intarweb.scm:633: ##sys#block-set!
intarweb.scm:633: ##sys#block-set!
intarweb.scm:633: ##sys#block-set!
intarweb.scm:633: ##sys#block-set!
intarweb.scm:633: ##sys#block-set!
intarweb.scm:633: ##sys#block-set!
spiffy.scm:332: ##sys#dynamic-wind
spiffy.scm:332: current-response519520
spiffy.scm:332: current-response519520
spiffy.scm:339: thunk
spiffy-uri-match.scm:36: handler
uri-match.scm:88: fold-right
uri-match.scm:73: irregex-num-submatches
uri-match.scm:73: iota
uri-match.scm:81: irregex-names
uri-match.scm:74: fold
uri-match.scm:82: append
(let ((++ string-append)) (quasiquote ((literal "") (html (@ (lang "en")) (head (scri......
(##core#let ((++ string-append)) (quasiquote ((literal "") (html (@ (lang "en")) (hea......
(##core#begin (##sys#list (##sys#list (##core#quote literal) (##core#quote "")) (##sy......
(##sys#list (##sys#list (##core#quote literal) (##core#quote "")) (##sys#list (##core......
(##sys#list (##core#quote literal) (##core#quote ""))
(##core#quote literal)
(##core#quote "")
(##sys#list (##core#quote html) (##sys#list (##core#quote @) (##sys#list (##core#quote lang) (##core......
(##core#quote html)
(##sys#list (##core#quote @) (##sys#list (##core#quote lang) (##core#quote "en")))
(##core#quote @)
(##sys#list (##core#quote lang) (##core#quote "en"))
(##core#quote lang)
(##core#quote "en")
(##sys#list (##core#quote head) (##sys#list (##core#quote script) (##sys#list (##core#quote @) (##sy......
(##core#quote head)
(##sys#list (##core#quote script) (##sys#list (##core#quote @) (##sys#list (##core#quote language) (......
(##core#quote script)
(##sys#list (##core#quote @) (##sys#list (##core#quote language) (##core#quote "javascript")) (##sys......
(##core#quote @)
(##sys#list (##core#quote language) (##core#quote "javascript"))
(##core#quote language)
(##core#quote "javascript")
(##sys#list (##core#quote type) (##core#quote "text/javascript"))
(##core#quote type)
(##core#quote "text/javascript")
(##sys#list (##core#quote src) (##core#quote "boyd.js"))
(##core#quote src)
(##core#quote "boyd.js")
(##sys#list (##core#quote script) (##sys#list (##core#quote @) (##sys#list (##core#quote language) (......
(##core#quote script)
(##sys#list (##core#quote @) (##sys#list (##core#quote language) (##core#quote "javascript")) (##sys......
(##core#quote @)
(##sys#list (##core#quote language) (##core#quote "javascript"))
(##core#quote language)
(##core#quote "javascript")
(##sys#list (##core#quote type) (##core#quote "text/javascript"))
(##core#quote type)
(##core#quote "text/javascript")
(##sys#list (##core#quote src) (##core#quote "knodium-apps.js"))
(##core#quote src)
(##core#quote "knodium-apps.js")
(##sys#list (##core#quote meta) (##sys#list (##core#quote @) (##sys#list (##core#quote charset) (##c......
(##core#quote meta)
(##sys#list (##core#quote @) (##sys#list (##core#quote charset) (##core#quote "utf-8")))
(##core#quote @)
(##sys#list (##core#quote charset) (##core#quote "utf-8"))
(##core#quote charset)
(##core#quote "utf-8")
(##sys#list (##core#quote title) (##core#quote "Helveticards - 100% CSS playing cards"))
(##core#quote title)
(##core#quote "Helveticards - 100% CSS playing cards")
(##sys#list (##core#quote link) (##sys#list (##core#quote @) (##sys#list (##core#quote rel) (##core#......
(##core#quote link)
(##sys#list (##core#quote @) (##sys#list (##core#quote rel) (##core#quote "stylesheet")) (##sys#list......
(##core#quote @)
(##sys#list (##core#quote rel) (##core#quote "stylesheet"))
(##core#quote rel)
(##core#quote "stylesheet")
(##sys#list (##core#quote href) (##core#quote "helveticards.css"))
(##core#quote href)
(##core#quote "helveticards.css")
(##sys#list (##core#quote media) (##core#quote "all"))
(##core#quote media)
(##core#quote "all")
(##sys#cons (##core#quote body) (##sys#cons (##sys#list (##core#quote h1) (##core#quote "Helveticard...
(##core#quote body)
(##sys#cons (##sys#list (##core#quote h1) (##core#quote "Helveticards")) contents)
(##sys#list (##core#quote h1) (##core#quote "Helveticards"))
(##core#quote h1)
(##core#quote "Helveticards")
(##sys#list (##sys#list (##core#quote literal) (##core#quote "")) (##sys#list (##core......
spiffy.scm:461: k683
spiffy.scm:332: current-response519520
spiffy.scm:332: current-response519520
spiffy.scm:461: g687
spiffy.scm:471: handle-exception
spiffy.scm:472: with-output-to-string <--
eval in an environment added by andyjpb on Tue Sep 18 19:57:33 2012
(define (render-widgets sxml env default-bindings bindings contents) (let ((add-attr (lambda (attr) (environment-set! env (first attr) (second attr))))) (if (list? default-bindings) (for-each add-attr default-bindings)) (if (list? bindings) (for-each add-attr bindings)) (environment-set! env 'contents contents) (eval `(let ((++ string-append)) ,sxml) env))) ; Render the widget