FIX: issue red#207 (comment letting pass other than string! arguments)

g9020 · Mar 6, 2012 · 7541b85 · 7541b85
1 parent d44323a
commit 7541b85
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/red-system/loader.r b/red-system/loader.r
@@ -158,6 +158,9 @@ loader: context [
 			s: (do store-line)
 			some [
 				defs								;-- resolve definitions in a single pass
+				| 'comment [
+					string! | (throw-error "invalid comment string")
+				]
 				| s: #define set name word! set value skip e: (
 					compiler/check-enum-word/by-loader name
 					if verbose > 0 [print [mold name #":" mold value]]