Welcome to the CHICKEN Scheme pasting service

chicken 4.7.3 (specialization) + awful error pasted by mario-goulart on Mon Aug 8 16:28:02 2011

$ cat awful-hello.scm
(use awful)

(define-page (main-page-path)
  (lambda ()
    "hello"))

$ /usr/local/chicken-4.7.3-specialization/bin/awful awful-hello.scm &
[1] 7584

$ /usr/local/chicken-4.7.3-specialization/bin/awful awful-hello.scm

$ ab -n 10000 -c 100 http://127.0.0.1:8080/

;; The error is

[Mon Aug  8 11:06:56 2011] "GET http://127.0.0.1:8080/ HTTP/1.0" Error:
cannot write to socket - Broken pipe
14

        Call history:

        ##sys#get-keyword         
        header-parsers.scm:550: reverse   
        header-parsers.scm:550: string-join       
        header-parsers.scm:616: string-append     
        header-parsers.scm:614: loop      
        header-parsers.scm:600: string-join       
        g21552161         
        fprintf   
        k611617   
        g451452455        
        g451452455        
        g451452455        
        g451452455        
        g615616   
        spiffy#handle-exception   
        with-output-to-string           <--

No need to start the server twice. :-) pasted by mario-goulart on Mon Aug 8 16:29:18 2011

$ cat awful-hello.scm
(use awful)

(define-page (main-page-path)
  (lambda ()
    "hello"))

$ /usr/local/chicken-4.7.3-specialization/bin/awful awful-hello.scm &

$ ab -n 10000 -c 100 http://127.0.0.1:8080/

;; The error is

[Mon Aug  8 11:06:56 2011] "GET http://127.0.0.1:8080/ HTTP/1.0" Error:
cannot write to socket - Broken pipe
14

        Call history:

        ##sys#get-keyword         
        header-parsers.scm:550: reverse   
        header-parsers.scm:550: string-join       
        header-parsers.scm:616: string-append     
        header-parsers.scm:614: loop      
        header-parsers.scm:600: string-join       
        g21552161         
        fprintf   
        k611617   
        g451452455        
        g451452455        
        g451452455        
        g451452455        
        g615616   
        spiffy#handle-exception   
        with-output-to-string           <--

+ ab output added by mario-goulart on Mon Aug 8 16:34:41 2011

$ cat awful-hello.scm
(use awful)

(define-page (main-page-path)
  (lambda ()
    "hello"))

$ /usr/local/chicken-4.7.3-specialization/bin/awful awful-hello.scm &

$ ab -n 10000 -c 100 http://127.0.0.1:8080/
This is ApacheBench, Version 2.3 <$Revision: 655654 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/

Benchmarking 127.0.0.1 (be patient)
Completed 1000 requests
Completed 2000 requests
Completed 3000 requests
Completed 4000 requests
Completed 5000 requests
Completed 6000 requests
Completed 7000 requests
Completed 8000 requests
Completed 9000 requests
apr_socket_recv: Connection timed out (110)
Total of 9999 requests completed


;; The error is

[Mon Aug  8 11:06:56 2011] "GET http://127.0.0.1:8080/ HTTP/1.0" Error:
cannot write to socket - Broken pipe
14

        Call history:

        ##sys#get-keyword         
        header-parsers.scm:550: reverse   
        header-parsers.scm:550: string-join       
        header-parsers.scm:616: string-append     
        header-parsers.scm:614: loop      
        header-parsers.scm:600: string-join       
        g21552161         
        fprintf   
        k611617   
        g451452455        
        g451452455        
        g451452455        
        g451452455        
        g615616   
        spiffy#handle-exception   
        with-output-to-string           <--

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the one-argument procedure to check if a list is empty?
Visually impaired? Let me spell it for you (wav file) download WAV