parent
0f105e399e
commit
f0799a7bc3
|
@ -232,7 +232,7 @@ HELP: parse-definition
|
|||
$parsing-note ;
|
||||
|
||||
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
|
||||
{ $values { "quot" quotation } }
|
||||
|
|
|
@ -140,7 +140,7 @@ M: lambda-word word-noise-factor
|
|||
] if-empty ;
|
||||
|
||||
: noisy-vocabs ( -- alist )
|
||||
vocabs [ dup vocab-noise-factor ] { } map>assoc
|
||||
loaded-vocab-names [ dup vocab-noise-factor ] { } map>assoc
|
||||
sort-values reverse ;
|
||||
|
||||
: noise-report ( -- )
|
||||
|
|
Loading…
Reference in New Issue