CHANGE: necessary changes related to having import's module argument not evaluated

Author: Oldes

make/tools/make-boot.reb

@@ -933,16 +933,18 @@ foreach section [boot-base boot-sys boot-mezz] [
 					)
 				]
 			][
-				compose/deep/only [
-					import module [
-						Title:   (select hdr 'title)
-						Name:    (select hdr 'name)
-						Version: (select hdr 'version)
-						Date:    (select hdr 'date)
-						Author:  (select hdr 'author)
-						Exports: (select hdr 'exports)
-						Needs:   (select hdr 'needs)
-					] ( code )
+				reduce [
+					'import to paren! compose/deep/only [
+						module [
+							Title:   (select hdr 'title)
+							Name:    (select hdr 'name)
+							Version: (select hdr 'version)
+							Date:    (select hdr 'date)
+							Author:  (select hdr 'author)
+							Exports: (select hdr 'exports)
+							Needs:   (select hdr 'needs)
+						] ( code )
+					]
 				]
 			]
 		][	code ]
@@ -984,16 +986,18 @@ foreach file first mezz-files [
 				)
 			]
 		][ 
-			compose/deep/only [
-				import module [
-					Title:   (select hdr 'title)
-					Name:    (select hdr 'name)
-					Version: (select hdr 'version)
-					Date:    (select hdr 'date)
-					Author:  (select hdr 'author)
-					Exports: (select hdr 'exports)
-					Needs:   (select hdr 'needs)
-				] ( code )
+			reduce [
+				'import to paren! compose/deep/only [
+					module [
+						Title:   (select hdr 'title)
+						Name:    (select hdr 'name)
+						Version: (select hdr 'version)
+						Date:    (select hdr 'date)
+						Author:  (select hdr 'author)
+						Exports: (select hdr 'exports)
+						Needs:   (select hdr 'needs)
+					] ( code )
+				]
 			]
 		]
 	][

make/tools/make-host-init.reb

@@ -95,14 +95,15 @@ load-files: func [
 		header: file/1
 		remove file
 		if header/type = 'module [
-			file: compose/deep [
-				import module
-				[
-					title:   (header/title)
-					version: (header/version)
-					name:    (header/name)
-				][
-					(file)
+			file: reduce [
+				'import to paren! compose/deep[
+					module [
+						title:   (header/title)
+						version: (header/version)
+						name:    (header/name)
+					][
+						(file)
+					]
 				]
 			]
 			;probe file/2

src/mezz/mezz-help.reb

@@ -12,7 +12,7 @@ REBOL [
 	}
 ]
 
-import module [
+import (module [
 	Title:  "Help related functions"
 	Name:    help
 	Version: 3.0.0
@@ -550,7 +550,7 @@ import module [
 		]
 		exit
 	]
-]
+])
 
 ;-- old alpha functions:
 ;pending: does [

src/mezz/sys-load.reb

@@ -713,7 +713,7 @@ download-extension: function[
 
 import: function [
 	"Imports a module; locate, load, make, and setup its bindings."
-	'module [word! file! url! string! binary! module! block!]
+	'module [any-word! file! url! string! binary! module! block!]
 	/version ver [tuple!] "Module must be this version or greater"
 	/check sum [binary!] "Match checksum (must be set in header)"
 	/no-share "Force module to use its own non-shared global namespace"
@@ -728,6 +728,8 @@ import: function [
 	]
 	; Note: IMPORT block! returns a block of all the modules imported.
 
+	if any-word? module [module: to word! module]
+
 	; Try to load and check the module.
 	set [name: mod:] apply :load-module [module version ver check sum no-share no-lib /import]
 

src/mezz/sys-start.reb

@@ -200,7 +200,7 @@ start: func [
 	;if :lib/secure [protect-system-object]
 
 	; Import module?
-	if import [lib/import import]
+	if import [lib/import :import]
 
 	;-- Evaluate: --do "some code" if found
 	if do-arg [