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

small correction

This commit is contained in:
interp 2002-09-30 07:58:20 +00:00
parent 30e66edc61
commit fc6f2c5a1a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/web-server/root/surflets/calculate.scm
View File

@ -26,7 +26,7 @@
(lambda (a) a)) (lambda (a) a))
(else (else
(error "no such operator" operator-string)))) (error "no such operator" operator-string))))
`(select (@ ((name ,name))) `(select (@ (name ,name))
,@(map (lambda (operator) ,@(map (lambda (operator)
`(option ,(operator-symbol operator))) `(option ,(operator-symbol operator)))
*operator-alist*))))) *operator-alist*)))))