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