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

Reindent.

This commit is contained in:
interp 2003-01-17 17:48:20 +00:00
parent 4183ec85ce
commit 104802b3ae
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/surflets/web-server/root/surflets/add-html.scm
View File

@ -8,7 +8,8 @@
(define (get-number input-text . maybe-title) (define (get-number input-text . maybe-title)
(let* ((title (if (pair? maybe-title) (car maybe-title) #f)) (let* ((title (if (pair? maybe-title) (car maybe-title) #f))
(result (send-html/suspend (result
(send-html/suspend
(lambda (new-url) (lambda (new-url)
`(html ,(if title `(html ,(if title
`(title ,title) '()) `(title ,title) '())