Code cleanup

Author: Oldes

src/core/l-scan.c

@@ -1367,36 +1367,6 @@
 	}
 }
 
-#ifdef not_used
-//!!!
-/***********************************************************************
-**
-	REBOOL Construct_Simple(REBVAL *value, REBSER *spec)
-/*
-**		Handle special #[type] constructs. These are used to
-**		boot REBOL, so must not require binding.
-**
-***********************************************************************/
-{
-	REBVAL *blk = BLK_HEAD(spec);
-	if (!IS_WORD(blk)) return FALSE;
-	switch (VAL_WORD_SYM(blk)-1) {
-	case SYM_NONE:
-		SET_NONE(value);
-		break;
-	case SYM_FALSE:
-		SET_LOGIC(value, FALSE);
-		break;
-	case SYM_TRUE:
-		SET_LOGIC(value, TRUE);
-		break;
-	default:
-		return FALSE;
-	}
-	return TRUE;
-}
-#endif
-
 extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
 
 /***********************************************************************

src/core/u-parse.c

@@ -885,7 +885,6 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 	REBSER *ser;
 	REBFLG flags;
 	REBCNT cmd, wrd;
-	REBSER *blk;
 	REB_PARSE_COLLECT *collect = parse->collect;
 	//REBVAL *rule_head = rules;