parent
0f105e399e
commit
f0799a7bc3
|
@ -232,7 +232,7 @@ HELP: parse-definition
|
||||||
$parsing-note ;
|
$parsing-note ;
|
||||||
|
|
||||||
HELP: bootstrap-syntax
|
HELP: bootstrap-syntax
|
||||||
{ $var-description "Only set during bootstrap. Stores a copy of the " { $link vocab-words } " of the host's syntax vocabulary; this allows the host's parsing words to be used during bootstrap source parsing, not the target's." } ;
|
{ $var-description "Only set during bootstrap. Stores a copy of the " { $link vocab-words-assoc } " of the host's syntax vocabulary; this allows the host's parsing words to be used during bootstrap source parsing, not the target's." } ;
|
||||||
|
|
||||||
HELP: with-file-vocabs
|
HELP: with-file-vocabs
|
||||||
{ $values { "quot" quotation } }
|
{ $values { "quot" quotation } }
|
||||||
|
|
|
@ -140,7 +140,7 @@ M: lambda-word word-noise-factor
|
||||||
] if-empty ;
|
] if-empty ;
|
||||||
|
|
||||||
: noisy-vocabs ( -- alist )
|
: noisy-vocabs ( -- alist )
|
||||||
vocabs [ dup vocab-noise-factor ] { } map>assoc
|
loaded-vocab-names [ dup vocab-noise-factor ] { } map>assoc
|
||||||
sort-values reverse ;
|
sort-values reverse ;
|
||||||
|
|
||||||
: noise-report ( -- )
|
: noise-report ( -- )
|
||||||
|
|
Loading…
Reference in New Issue