[plt-scheme] formlets...

From: geb a (geb_a at yahoo.com)
Date: Tue Sep 23 17:30:51 EDT 2008

I was very excited to see the new concept of formlets so I downloaded version from svn and tried the example from the documentation.

The example gives the following error:

(formlet (div "Name:" (unquote (=> input-string name)) (div "Arrive:" (unquote (=> date-formlet arrive)) "Depart:" (unquote (=> date-formlet depart))) (list name arrive depart)))

The code is below:
(require web-server/formlets/formlets)
(define-struct date (month day))

(define date-formlet
    "Month:" ,{input-int . => . month}
    "Day:" ,{input-int . => . day})
   (make-date month day)))

(define travel-formlet
    "Name:" ,{input-string . => . name}
     "Arrive:" ,{date-formlet . => . arrive}
     "Depart:" ,{date-formlet . => . depart})
    (list name arrive depart))))


Posted on the users mailing list.