From c93693169a65f9ed6fe9a0f51144cea23d1ddf0a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 5 Dec 2019 05:43:31 -0700 Subject: [PATCH] cs: fix handling of an empty command-line argument --- racket/src/cs/main.sps | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/main.sps b/racket/src/cs/main.sps index a5cf0c30ca..f539c9fe2c 100644 --- a/racket/src/cs/main.sps +++ b/racket/src/cs/main.sps @@ -558,8 +558,8 @@ (loop (cons (cadr args) (cons (car args) (cddr args))))])] [else (cond - [(and (eqv? (string-ref arg 0) #\-) - (> (string-length arg) 1)) + [(and (> (string-length arg) 1) + (eqv? (string-ref arg 0) #\-)) (cond [(and (> (string-length arg) 2) (not (eqv? (string-ref arg 1) #\-)))