FIX: additional fix for issue #288 (Formal args of parametrized macro…

…s are not constrained to (non key-)words)

red-system/compiler.r

@@ -50,6 +50,7 @@ system-dialect: make-profilable context [
 		sym-ctx-table:	 make hash!  100				;-- reverse lookup table for contexts
 		globals:  	   	 make hash!  40					;-- list of globally defined symbols from scripts
 		aliased-types: 	 make hash!  10					;-- list of aliased type definitions
+		keywords-list:	 make block! 20
 
 		resolve-alias?:  yes							;-- YES: instruct the type resolution function to reduce aliases
 		decoration:		 slash							;-- decoration separator for namespaces
@@ -165,6 +166,9 @@ system-dialect: make-profilable context [
 			alias 		 [raise-level-error "an alias"]	  ;-- alias declaration not allowed at this level
 		]
 
+		foreach [word action] keywords [append keywords-list word]
+		foreach [name spec] functions  [append keywords-list name]
+
 		calc-line: has [idx head-end prev p header][
 			header: head pc
 			idx: (index? pc) - header/1  				;-- calculate real pc position (not counting hidden header)

red-system/loader.r

@@ -64,6 +64,9 @@ loader: make-profilable context [
 		unless parse args [some word!][
 			throw-error ["only words can be used as macro parameters:" mold args]
 		]
+		unless empty? intersect to block! args compiler/keywords-list [
+			throw-error ["keywords cannot be used as macro parameters:" mold args]
+		]
 	]
 
 	check-marker: func [src [string!] /local pos][