diff options
Diffstat (limited to 'module/web/server.scm')
-rw-r--r-- | module/web/server.scm | 8 |
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 |