From d8a98967271fe1136afad6495bcae5d4297eeb31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 30 Jan 2002 16:06:29 +0000
Subject: [PATCH] .

original commit: 9809cd02b58719562abb2a278d81411d9a64a4ca
---
 collects/mzlib/cmdline.ss | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.ss
index 7765220..1ed4155 100644
--- a/collects/mzlib/cmdline.ss
+++ b/collects/mzlib/cmdline.ss
@@ -15,10 +15,6 @@
 		   msg
 		   stx
 		   detail))])
-	   (unless (string? (syntax-e (syntax program-name)))
-	     (serror
-	      "program name is not a string"
-	      (syntax program-name)))
 	   (let ([extract (lambda (what args . detail)
 			    (if (null? args)
 				(apply serror (format "missing ~a" what) detail)