syntax: allow anonymous MAIN:.

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 06ec62fb8ccbd0b7bf6dc9c6c2de188764a09853..d6ce678e4d1231257c8c0d7f26644029d378da4c 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -242,8 +242,10 @@ IN: bootstrap.syntax
     ] define-core-syntax
 
     "MAIN:" [
-        scan-word
-        dup ( -- ) check-stack-effect
+        scan-word dup \ [ = [
+            drop "( main )" <uninterned-word> dup
+            parse-quotation ( -- ) define-declared
+        ] when dup ( -- ) check-stack-effect
         [ current-vocab main<< ]
         [ current-source-file get [ main<< ] [ drop ] if* ] bi
     ] define-core-syntax