Welcome to the CHICKEN Scheme pasting service

POST added by utz on Sat Nov 19 17:00:41 2022

(define-page "/pong"
  (lambda ()
    (string-append "pong: " ($ 'rv #f))))

(define-page "/ping"
  (lambda ()
    `(form (@ (action "/pong")
	      (method "post"))
	   (input (@ (type "text")
		     (id "rv")
		     (name "rv")
		     (default "foo")))
	   (input (@ (type "submit")
		     (value "pingpong")
		     (class "button"))))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

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