From 77c7b2b147d431f70c7c64bf4b88b455466e6d18 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 8 Jan 2019 16:26:13 -0700
Subject: [PATCH] make-readtable: fix argument checking

---
 racket/src/expander/read/readtable.rkt | 2 +-
 racket/src/racket/src/startup.inc      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/racket/src/expander/read/readtable.rkt b/racket/src/expander/read/readtable.rkt
index 9ff5f5abf5..0e46e83ef0 100644
--- a/racket/src/expander/read/readtable.rkt
+++ b/racket/src/expander/read/readtable.rkt
@@ -51,7 +51,7 @@
         (raise-argument-error 'make-readtable "(or/c char? #f)" key))
       
       ;; Mode determines how the key is mapped
-      (when (null? args)
+      (when (null? (cdr args))
         (cond
          [key (raise-arguments-error 'make-readtable
                                      (string-append "expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,"
diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 28e5233991..5813931c3d 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -52197,7 +52197,7 @@ static const char *startup_source =
 "(values))))"
 "(let-values((()"
 "(begin"
-"(if(null? args_1)"
+"(if(null?(cdr args_1))"
 "(let-values()"
 "(if key_0"
 "(let-values()"