Fix missed LIST! => ANY-LIST!, ARRAY => ANY-ARRAY!
Fix missed LIST! => ANY-LIST!, ARRAY => ANY-ARRAY!

Before committing the LIST/ARRAY I had changed the names to
have the ANY!, and didn't test the any-list? and any-array?
functions again to notice that the typeset didn't have the ANY- :-/

draegtun/ren-c,kealist/ren-c,kealist/ren-c,giuliolunati/ren-c,giuliolunati/ren-c,hostilefork/rebol,codebybrett/ren-c,rgchris/ren-c,codebybrett/ren-c,draegtun/ren-c,rgchris/ren-c,giuliolunati/ren-c,kealist/ren-c,codebybrett/ren-c,rgchris/ren-c,kealist/ren-c,draegtun/ren-c,kealist/ren-c,draegtun/ren-c,codebybrett/ren-c,hostilefork/rebol,giuliolunati/ren-c,hostilefork/rebol,rgchris/ren-c,giuliolunati/ren-c,codebybrett/ren-c,draegtun/ren-c,rgchris/ren-c,hostilefork/rebol,hostilefork/rebol
REBOL [
	System: "REBOL [R3] Language Interpreter and Run-time Environment"
	Title: "REBOL 3 Boot Base: Other Definitions"
	Rights: {
		Copyright 2012 REBOL Technologies
		REBOL is a trademark of REBOL Technologies
	}
	License: {
		Licensed under the Apache License, Version 2.0
		See: http://www.apache.org/licenses/LICENSE-2.0
	}
	Note: {
		This code is evaluated just after actions, natives, sysobj, and other lower
		levels definitions. This file intializes a minimal working environment
		that is used for the rest of the boot.
	}
]

;-- Create the reflector functions (e.g. spec-of, body-of, ...)

; Must be defined in A108 (no forward refs)
spec-of:
body-of:
words-of:
values-of:
types-of:
title-of:
	none

use [word title] [
	foreach name system/catalog/reflectors [
		word: make word! ajoin [name "-of"]
		word: bind/new word 'reflect
		title: ajoin ["Returns a copy of the " name " of a " switch/default name [
			spec        ["function or module"]
			values      ["object or module"]
			types title ["function"] ; title should include module Title too...
			addr ["struct or callback"]
		] ["function, object, or module"]] ; body, words
		set word func
			reduce [title 'value]
			compose [reflect :value (to lit-word! name)]
	]
]

decode-url: none ; set in sys init

;-- Setup Codecs -------------------------------------------------------------

foreach [codec handler] system/codecs [
	if handle? handler [
		; Change boot handle into object:
		codec: set codec make object! [
			entry: handler
			title: form reduce ["Internal codec for" codec "media type"]
			name: codec
			type: 'image!
			suffixes: select [
				text [%.txt]
				utf-16le [%.txt]
				utf-16be [%.txt]
				markup [%.html %.htm %.xml %.xsl %.wml %.sgml %.asp %.php %.cgi]
				bmp  [%.bmp]
				gif  [%.gif]
				jpeg [%.jpg %.jpeg]
				png  [%.png]
			] codec
		]
		; Media-types block format: [.abc .def type ...]
		append append system/options/file-types codec/suffixes codec/name
	]
]

; Special import case for extensions:
append system/options/file-types switch/default fourth system/version [
	3 [[%.rx %.dll extension]]  ; Windows
	2 [[%.rx %.dylib %.so extension]]  ; OS X
	4 7 [[%.rx %.so extension]]  ; Other Posix
] [[%.rx extension]]

internal!: make typeset! [
	end! unset! frame! handle!
]

immediate!: make typeset! [
	; Does not include internal datatypes
	none! logic! scalar! date! any-word! datatype! typeset! event!
]

system/options/result-types: make typeset! [
	immediate! series! bitset! image! object! map! gob!
]

;-- Create "To-Datatype" conversion functions early in bootstrap:

any-string?: func [
	"Return TRUE if value is any type of string."
	value [any-type!]
][find any-string! type-of :value]

any-function?: func [
	"Return TRUE if value is any type of function."
	value [any-type!]
][find any-function! type-of :value]

any-word?: func [
	"Return TRUE if value is any type of word."
	value [any-type!]
][find any-word! type-of :value]

any-path?: func [
	"Return TRUE if value is any type of path."
	value [any-type!]
][find any-path! type-of :value]

any-object?: func [
	"Return TRUE if value is any type of object."
	value [any-type!]
][find any-object! type-of :value]

number?: func [
	"Return TRUE if value is a number (integer or decimal)."
	value [any-type!]
][find number! type-of :value]

series?: func [
	"Return TRUE if value is any type of series."
	value [any-type!]
][find series! type-of :value]

scalar?: func [
	"Return TRUE if value is any type of scalar."
	value [any-type!]
][find scalar! type-of :value]

any-array?: func [
	"Return TRUE if value is a series containing all the same type."
	value [any-type!]
][find any-array! type-of :value]

any-list?: func [
	"Return TRUE if value is a series that can hold elements of any type."
	value [any-type!]
][find any-list! type-of :value]

true?: func [
	"Returns true if an expression can be used as true."
	val ; Note: No [any-type!] - we want unset! to fail.
] [not not :val]

quote: func [
	"Returns the value passed to it without evaluation."
	:value [any-type!]
] [
	:value
]

REBOL [
	System: "REBOL [R3] Language Interpreter and Run-time Environment"
	Title: "REBOL 3 Boot Base: Other Definitions"
	Rights: {
		Copyright 2012 REBOL Technologies
		REBOL is a trademark of REBOL Technologies
	}
	License: {
		Licensed under the Apache License, Version 2.0
		See: http://www.apache.org/licenses/LICENSE-2.0
	}
	Note: {
		This code is evaluated just after actions, natives, sysobj, and other lower
		levels definitions. This file intializes a minimal working environment
		that is used for the rest of the boot.
	}
]

;-- Create the reflector functions (e.g. spec-of, body-of, ...)

; Must be defined in A108 (no forward refs)
spec-of:
body-of:
words-of:
values-of:
types-of:
title-of:
	none

use [word title] [
	foreach name system/catalog/reflectors [
		word: make word! ajoin [name "-of"]
		word: bind/new word 'reflect
		title: ajoin ["Returns a copy of the " name " of a " switch/default name [
			spec        ["function or module"]
			values      ["object or module"]
			types title ["function"] ; title should include module Title too...
			addr ["struct or callback"]
		] ["function, object, or module"]] ; body, words
		set word func
			reduce [title 'value]
			compose [reflect :value (to lit-word! name)]
	]
]

decode-url: none ; set in sys init

;-- Setup Codecs -------------------------------------------------------------

foreach [codec handler] system/codecs [
	if handle? handler [
		; Change boot handle into object:
		codec: set codec make object! [
			entry: handler
			title: form reduce ["Internal codec for" codec "media type"]
			name: codec
			type: 'image!
			suffixes: select [
				text [%.txt]
				utf-16le [%.txt]
				utf-16be [%.txt]
				markup [%.html %.htm %.xml %.xsl %.wml %.sgml %.asp %.php %.cgi]
				bmp  [%.bmp]
				gif  [%.gif]
				jpeg [%.jpg %.jpeg]
				png  [%.png]
			] codec
		]
		; Media-types block format: [.abc .def type ...]
		append append system/options/file-types codec/suffixes codec/name
	]
]

; Special import case for extensions:
append system/options/file-types switch/default fourth system/version [
	3 [[%.rx %.dll extension]]  ; Windows
	2 [[%.rx %.dylib %.so extension]]  ; OS X
	4 7 [[%.rx %.so extension]]  ; Other Posix
] [[%.rx extension]]

internal!: make typeset! [
	end! unset! frame! handle!
]

immediate!: make typeset! [
	; Does not include internal datatypes
	none! logic! scalar! date! any-word! datatype! typeset! event!
]

system/options/result-types: make typeset! [
	immediate! series! bitset! image! object! map! gob!
]

;-- Create "To-Datatype" conversion functions early in bootstrap:

any-string?: func [
	"Return TRUE if value is any type of string."
	value [any-type!]
][find any-string! type-of :value]

any-function?: func [
	"Return TRUE if value is any type of function."
	value [any-type!]
][find any-function! type-of :value]

any-word?: func [
	"Return TRUE if value is any type of word."
	value [any-type!]
][find any-word! type-of :value]

any-path?: func [
	"Return TRUE if value is any type of path."
	value [any-type!]
][find any-path! type-of :value]

any-object?: func [
	"Return TRUE if value is any type of object."
	value [any-type!]
][find any-object! type-of :value]

number?: func [
	"Return TRUE if value is a number (integer or decimal)."
	value [any-type!]
][find number! type-of :value]

series?: func [
	"Return TRUE if value is any type of series."
	value [any-type!]
][find series! type-of :value]

scalar?: func [
	"Return TRUE if value is any type of scalar."
	value [any-type!]
][find scalar! type-of :value]

any-array?: func [
	"Return TRUE if value is a series containing all the same type."
	value [any-type!]
][find array! type-of :value]

any-list?: func [
	"Return TRUE if value is a series that can hold elements of any type."
	value [any-type!]
][find list! type-of :value]

true?: func [
	"Returns true if an expression can be used as true."
	val ; Note: No [any-type!] - we want unset! to fail.
] [not not :val]

quote: func [
	"Returns the value passed to it without evaluation."
	:value [any-type!]
] [
	:value
]
