richo · December 11, 2012 11:38
diff --git a/gistfile1 b/gistfile1
 vagrant@precise64:~/ident.so$ PORT=1234 csi -ss main.scm                                                           

 Error: unbound variable: alist-update        Call history:

        <eval>    [mainloop] (tcp-accept sock)
        <eval>    [mainloop] (handle s-in s-out)
        <eval>    [handle] (read-line in)
        <eval>    [handle] (get-request-path line)
        <eval>    [get-request-path] (string-tokenize line)
        <eval>    [get-request-path] (car (cdr tokenized-line))
        <eval>    [get-request-path] (cdr tokenized-line)
        <eval>    [handle] (get-request-method line)        <eval>    [get-request-method] (car (string-tokenize line))        <eval>    [get-request-method] (string-tokenize line)
        <eval>    [handle] (make-response)        <eval>    [handle] (write-response (cond ((string=? request-path "/") (set-response-header "Content-Type" "text/html" (......
        <eval>    [handle] (string=? request-path "/")
        <eval>    [handle] (set-response-header "Content-Type" "text/html" (set-response-body "<html><body><b>Got root?</b></bo...
        <eval>    [handle] (set-response-body "<html><body><b>Got root?</b></body></html>" response)
        <eval>    [set-response-body] (alist-update (quote body) body response) <--
	vagrant@precise64:~/ident.so$ PORT=1234 csi -ss main.scm

	Error: unbound variable: alist-update Call history:

	<eval> [mainloop] (tcp-accept sock)
	<eval> [mainloop] (handle s-in s-out)
	<eval> [handle] (read-line in)
	<eval> [handle] (get-request-path line)
	<eval> [get-request-path] (string-tokenize line)
	<eval> [get-request-path] (car (cdr tokenized-line))
	<eval> [get-request-path] (cdr tokenized-line)
	<eval> [handle] (get-request-method line) <eval> [get-request-method] (car (string-tokenize line)) <eval> [get-request-method] (string-tokenize line)
	<eval> [handle] (make-response) <eval> [handle] (write-response (cond ((string=? request-path "/") (set-response-header "Content-Type" "text/html" (......
	<eval> [handle] (string=? request-path "/")
	<eval> [handle] (set-response-header "Content-Type" "text/html" (set-response-body "<html><body><b>Got root?</b></bo...
	<eval> [handle] (set-response-body "<html><body><b>Got root?</b></body></html>" response)
	<eval> [set-response-body] (alist-update (quote body) body response) <--