small correction

2002-09-30 07:58:20 +00:00 · 2002-09-30 07:58:20 +00:00 · fc6f2c5a1a
parent 30e66edc61
commit fc6f2c5a1a
1 changed files with 1 additions and 1 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
@ -26,7 +26,7 @@
 	     (lambda (a) a))
 	    (else
 	     (error "no such operator" operator-string))))
-	 `(select (@ ((name ,name)))
+	 `(select (@ (name ,name))
 		  ,@(map (lambda (operator)
 			   `(option ,(operator-symbol operator)))
 			 *operator-alist*)))))