84 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			84 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Factor
		
	
	
| ! Copyright (C) 2007, 2008 Slava Pestov.
 | |
| ! See http://factorcode.org/license.txt for BSD license.
 | |
| USING: words words.symbol sequences vocabs kernel ;
 | |
| IN: bootstrap.syntax
 | |
| 
 | |
| "syntax" create-vocab drop
 | |
| 
 | |
| {
 | |
|     "!"
 | |
|     "\""
 | |
|     "#!"
 | |
|     "("
 | |
|     "(("
 | |
|     ":"
 | |
|     ";"
 | |
|     "<PRIVATE"
 | |
|     "BIN:"
 | |
|     "B{"
 | |
|     "C:"
 | |
|     "CHAR:"
 | |
|     "DEFER:"
 | |
|     "ERROR:"
 | |
|     "FORGET:"
 | |
|     "GENERIC#"
 | |
|     "GENERIC:"
 | |
|     "HEX:"
 | |
|     "HOOK:"
 | |
|     "H{"
 | |
|     "IN:"
 | |
|     "INSTANCE:"
 | |
|     "M:"
 | |
|     "MAIN:"
 | |
|     "MATH:"
 | |
|     "MIXIN:"
 | |
|     "OCT:"
 | |
|     "P\""
 | |
|     "POSTPONE:"
 | |
|     "PREDICATE:"
 | |
|     "PRIMITIVE:"
 | |
|     "PRIVATE>"
 | |
|     "SBUF\""
 | |
|     "SINGLETON:"
 | |
|     "SINGLETONS:"
 | |
|     "SYMBOL:"
 | |
|     "SYMBOLS:"
 | |
|     "CONSTANT:"
 | |
|     "TUPLE:"
 | |
|     "SLOT:"
 | |
|     "T{"
 | |
|     "UNION:"
 | |
|     "INTERSECTION:"
 | |
|     "USE:"
 | |
|     "USING:"
 | |
|     "QUALIFIED:"
 | |
|     "QUALIFIED-WITH:"
 | |
|     "FROM:"
 | |
|     "EXCLUDE:"
 | |
|     "RENAME:"
 | |
|     "ALIAS:"
 | |
|     "V{"
 | |
|     "W{"
 | |
|     "["
 | |
|     "\\"
 | |
|     "]"
 | |
|     "delimiter"
 | |
|     "f"
 | |
|     "flushable"
 | |
|     "foldable"
 | |
|     "inline"
 | |
|     "recursive"
 | |
|     "parsing"
 | |
|     "t"
 | |
|     "{"
 | |
|     "}"
 | |
|     "CS{"
 | |
|     "<<"
 | |
|     ">>"
 | |
|     "call-next-method"
 | |
|     "initial:"
 | |
|     "read-only"
 | |
| } [ "syntax" create drop ] each
 | |
| 
 | |
| "t" "syntax" lookup define-symbol
 |