Generalize operation
							parent
							
								
									59dced5c9d
								
							
						
					
					
						commit
						39685724cc
					
				| 
						 | 
				
			
			@ -1,15 +1,15 @@
 | 
			
		|||
! Copyright (C) 2006, 2009 Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: continuations definitions generic help.topics threads
 | 
			
		||||
stack-checker summary io.pathnames io.styles kernel namespaces
 | 
			
		||||
parser prettyprint quotations tools.crossref tools.annotations
 | 
			
		||||
editors tools.profiler tools.test tools.time tools.walker vocabs
 | 
			
		||||
vocabs.loader words sequences tools.vocabs classes
 | 
			
		||||
compiler.errors compiler.units accessors vocabs.parser macros.expander ui
 | 
			
		||||
ui.tools.browser ui.tools.listener ui.tools.listener.completion
 | 
			
		||||
ui.tools.profiler ui.tools.inspector ui.tools.traceback
 | 
			
		||||
ui.commands ui.gadgets.editors ui.gestures ui.operations
 | 
			
		||||
ui.tools.deploy models help.tips ;
 | 
			
		||||
stack-checker summary io.pathnames io.styles kernel namespaces parser
 | 
			
		||||
prettyprint quotations tools.crossref tools.annotations editors
 | 
			
		||||
tools.profiler tools.test tools.time tools.walker vocabs vocabs.loader
 | 
			
		||||
words sequences tools.vocabs classes compiler.errors compiler.units
 | 
			
		||||
accessors vocabs.parser macros.expander ui ui.tools.browser
 | 
			
		||||
ui.tools.listener ui.tools.listener.completion ui.tools.profiler
 | 
			
		||||
ui.tools.inspector ui.tools.traceback ui.commands ui.gadgets.editors
 | 
			
		||||
ui.gestures ui.operations ui.tools.deploy models help.tips
 | 
			
		||||
source-files.errors ;
 | 
			
		||||
IN: ui.tools.operations
 | 
			
		||||
 | 
			
		||||
! Objects
 | 
			
		||||
| 
						 | 
				
			
			@ -86,8 +86,8 @@ IN: ui.tools.operations
 | 
			
		|||
    { +listener+ t }
 | 
			
		||||
} define-operation
 | 
			
		||||
 | 
			
		||||
! Compiler errors
 | 
			
		||||
[ compiler-error? ] \ edit-error H{
 | 
			
		||||
! Source file error
 | 
			
		||||
[ source-file-error? ] \ edit-error H{
 | 
			
		||||
    { +primary+ t }
 | 
			
		||||
    { +secondary+ t }
 | 
			
		||||
    { +listener+ t }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue