summaryrefslogtreecommitdiff
path: root/module/web/server.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/server.scm')
-rw-r--r--module/web/server.scm8
1 files changed, 3 insertions, 5 deletions
diff --git a/module/web/server.scm b/module/web/server.scm
index c5e623a19..ef6879ec3 100644
--- a/module/web/server.scm
+++ b/module/web/server.scm
@@ -118,11 +118,9 @@
(write server-impl-write)
(close server-impl-close))
-(define-syntax define-server-impl
- (syntax-rules ()
- ((_ name open read write close)
- (define name
- (make-server-impl 'name open read write close)))))
+(define-syntax-rule (define-server-impl name open read write close)
+ (define name
+ (make-server-impl 'name open read write close)))
(define (lookup-server-impl impl)
"Look up a server implementation. If @var{impl} is a server