scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove stupid error generating code. Hit me.

This commit is contained in:
interp 2002-11-15 12:32:50 +00:00
parent 4570e42eeb
commit a0e331636c
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/httpd/surflets/web-server/root/surflets/spaceship.scm
View File

@ -3,7 +3,8 @@
scheme scheme
servlets servlets
let-opt let-opt
receiving) receiving
(subset srfi-13 (string-downcase)))
(begin (begin
;;; Spaceship components ;;; Spaceship components
@ -78,12 +79,10 @@
,med-beds " treatment beds, " ,med-beds " treatment beds, "
,(and armed (list armed " armed,")) ,(and armed (list armed " armed,"))
,(and shields (list shields " shields")) ,(and shields (list shields " shields"))
" and has a " ,drive " drive."))))) " and has a " ,(string-downcase drive) " drive.")))))
(define (get-size req class . maybe-update-text) (define (get-size req class . maybe-update-text)
((lambda (a b) (< a b)) 0 #f)
(let* ((update-text (:optional maybe-update-text #f)) (let* ((update-text (:optional maybe-update-text #f))
(size-input (make-number-input-field)) (size-input (make-number-input-field))
(complain (lambda (class size) (complain (lambda (class size)
@ -150,7 +149,8 @@ specify a positive number.")
,(make-title) ,(make-title)
(body (body
(h1 "Welcome to the Spaceship Builder Web Site!") (h1 "Welcome to the Spaceship Builder Web Site!")
(p "Here you can build your own space ship") (p "Here you can build your own space ship.")
(p "Please note that this site is currently under construction. You cannot specify much details.")
(h2 "Step 1 -- Selecting components") (h2 "Step 1 -- Selecting components")
,(and update-text `(font (@ (color "red")) ,update-text)) ,(and update-text `(font (@ (color "red")) ,update-text))
(servlet-form ,new-url (servlet-form ,new-url
@ -181,5 +181,4 @@ specify a positive number.")
elem)) elem))
list)) list))
)) ))