classes: fix a couple of check-instance uses.
parent
2f9c8c6bca
commit
3a66238c8e
|
@ -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