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