Fix to xmode
							parent
							
								
									dcad3ad225
								
							
						
					
					
						commit
						dc49f138c4
					
				| 
						 | 
					@ -1,6 +1,6 @@
 | 
				
			||||||
USING: xmode.loader xmode.utilities xmode.rules namespaces
 | 
					USING: xmode.loader xmode.utilities xmode.rules namespaces
 | 
				
			||||||
strings splitting assocs sequences kernel io.files xml memoize
 | 
					strings splitting assocs sequences kernel io.files xml memoize
 | 
				
			||||||
words globs combinators io.encodings.utf8 sorting accessors ;
 | 
					words globs combinators io.encodings.utf8 sorting accessors xml.data ;
 | 
				
			||||||
IN: xmode.catalog
 | 
					IN: xmode.catalog
 | 
				
			||||||
 | 
					
 | 
				
			||||||
TUPLE: mode file file-name-glob first-line-glob ;
 | 
					TUPLE: mode file file-name-glob first-line-glob ;
 | 
				
			||||||
| 
						 | 
					@ -8,7 +8,7 @@ TUPLE: mode file file-name-glob first-line-glob ;
 | 
				
			||||||
<TAGS: parse-mode-tag ( modes tag -- )
 | 
					<TAGS: parse-mode-tag ( modes tag -- )
 | 
				
			||||||
 | 
					
 | 
				
			||||||
TAG: MODE
 | 
					TAG: MODE
 | 
				
			||||||
    "NAME" over at [
 | 
					    dup "NAME" attr [
 | 
				
			||||||
        mode new {
 | 
					        mode new {
 | 
				
			||||||
            { "FILE" f (>>file) }
 | 
					            { "FILE" f (>>file) }
 | 
				
			||||||
            { "FILE_NAME_GLOB" f (>>file-name-glob) }
 | 
					            { "FILE_NAME_GLOB" f (>>file-name-glob) }
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue