classes: fix a couple of check-instance uses.
							parent
							
								
									19c8d482fb
								
							
						
					
					
						commit
						8c5e9a7df4
					
				| 
						 | 
				
			
			@ -1,8 +1,8 @@
 | 
			
		|||
! Copyright (C) 2009, 2010 Slava Pestov.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: accessors arrays classes.tuple classes.tuple.private
 | 
			
		||||
combinators combinators.smart fry functors kernel macros math parser
 | 
			
		||||
sequences sequences.private ;
 | 
			
		||||
USING: accessors arrays classes classes.tuple
 | 
			
		||||
classes.tuple.private combinators combinators.smart fry functors
 | 
			
		||||
kernel macros math parser sequences sequences.private ;
 | 
			
		||||
FROM: inverse => undo ;
 | 
			
		||||
IN: tuple-arrays
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -29,8 +29,10 @@ ERROR: edges-in-same-face ;
 | 
			
		|||
    [ dup opposite-edge>> assert-same-face ]
 | 
			
		||||
    bi ;
 | 
			
		||||
 | 
			
		||||
ERROR: not-a-base-face face ;
 | 
			
		||||
 | 
			
		||||
: assert-base-face ( face -- )
 | 
			
		||||
    base-face check-instance drop ;
 | 
			
		||||
    dup base-face? [ drop ] [ not-a-base-face ] if ;
 | 
			
		||||
 | 
			
		||||
ERROR: has-rings face ;
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,7 +1,7 @@
 | 
			
		|||
! Copyright (C) 2013 Doug Coleman.
 | 
			
		||||
! See http://factorcode.org/license.txt for BSD license.
 | 
			
		||||
USING: accessors arrays fry kernel locals math math.matrices
 | 
			
		||||
math.vectors sequences sequences.private ;
 | 
			
		||||
USING: accessors arrays classes fry kernel locals math
 | 
			
		||||
math.matrices math.vectors sequences sequences.private ;
 | 
			
		||||
IN: math.matrices.laplace
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue