syntax: allow anonymous MAIN:.
parent
551e079da8
commit
d2114e913c
|
@ -242,8 +242,10 @@ IN: bootstrap.syntax
|
||||||
] define-core-syntax
|
] define-core-syntax
|
||||||
|
|
||||||
"MAIN:" [
|
"MAIN:" [
|
||||||
scan-word
|
scan-word dup \ [ = [
|
||||||
dup ( -- ) check-stack-effect
|
drop "( main )" <uninterned-word> dup
|
||||||
|
parse-quotation ( -- ) define-declared
|
||||||
|
] when dup ( -- ) check-stack-effect
|
||||||
[ current-vocab main<< ]
|
[ current-vocab main<< ]
|
||||||
[ current-source-file get [ main<< ] [ drop ] if* ] bi
|
[ current-source-file get [ main<< ] [ drop ] if* ] bi
|
||||||
] define-core-syntax
|
] define-core-syntax
|
||||||
|
|
Loading…
Reference in New Issue