From fc6f2c5a1af58efa321c1bf14c4226aa6ca1c4e1 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 30 Sep 2002 07:58:20 +0000 Subject: [PATCH] small correction --- scheme/httpd/surflets/web-server/root/surflets/calculate.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm index c6bef00..e28c864 100644 --- 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*)))))