Commits

Anonymous committed aacaa27 Draft

Process args before setting name

  • Participants
  • Parent commits d667320

Comments (0)

Files changed (1)

 
 	prog = argv;
 
+	if(argc == 0){
+		argc = 1;
+		argv = xargv;
+		argv[0] = getenv("FORTH");
+		if(argv[0] == nil)
+			argv[0] = "gforth";
+		argv[1] = 0;
+	}
+
 	if(name == nil){
 		if(argc > 0)
 			name = argv[0];
 		}
 	}
 
-	if(argc == 0){
-		argc = 1;
-		argv = xargv;
-		argv[0] = getenv("FORTH");
-		if(argv[0] == nil)
-			argv[0] = "gforth";
-		argv[1] = 0;
-	}
-
 	/*
 	 * notedisable("sys: write on closed pipe");
 	 * not okay to disable the note, because that