.

original commit: 9809cd02b58719562abb2a278d81411d9a64a4ca
2002-01-30 16:06:29 +00:00 · 2002-01-30 16:06:29 +00:00 · d8a9896727
commit d8a9896727
parent e8512fc005
1 changed files with 0 additions and 4 deletions
--- 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)