From 9b79de00d6764abe361dec6c73026d31d7d967a5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 21 Sep 2006 14:13:32 +0000 Subject: [PATCH] rest arg -> #:optional svn: r4407 --- collects/scribble/reader.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/scribble/reader.ss b/collects/scribble/reader.ss index 3061b5fd90..2824f83588 100644 --- a/collects/scribble/reader.ss +++ b/collects/scribble/reader.ss @@ -38,9 +38,8 @@ (hash-table-put! t n s) s)))))) (define (dispatcher char inp source-name line-num col-num position) - (define (next-syntax readtable . plain?) - (let ([read (if (and (pair? plain?) (car plain?)) - read-syntax read-syntax/recursive)]) + (define/kw (next-syntax readtable #:optional plain?) + (let ([read (if plain? read-syntax read-syntax/recursive)]) (parameterize ([current-readtable readtable]) (let loop () (let ([x (read source-name inp)])