steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes: fix a couple of check-instance uses.

flac
John Benediktsson 2020-01-15 13:33:50 -08:00 committed by Steve Ayerhart
parent 2f9c8c6bca
commit 3a66238c8e
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/tuple-arrays/tuple-arrays.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2009, 2010 Slava Pestov. ! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays classes.tuple classes.tuple.private USING: accessors arrays classes classes.tuple
combinators combinators.smart fry functors kernel macros math parser classes.tuple.private combinators combinators.smart fry functors
sequences sequences.private ; kernel macros math parser sequences sequences.private ;
FROM: inverse => undo ; FROM: inverse => undo ;
IN: tuple-arrays IN: tuple-arrays

4
extra/euler/operators/operators.factor
View File

@ -29,8 +29,10 @@ ERROR: edges-in-same-face ;
[ dup opposite-edge>> assert-same-face ] [ dup opposite-edge>> assert-same-face ]
bi ; bi ;
ERROR: not-a-base-face face ;
: assert-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 ; ERROR: has-rings face ;

4
extra/math/matrices/laplace/laplace.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2013 Doug Coleman. ! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays fry kernel locals math math.matrices USING: accessors arrays classes fry kernel locals math
math.vectors sequences sequences.private ; math.matrices math.vectors sequences sequences.private ;
IN: math.matrices.laplace IN: math.matrices.laplace
<PRIVATE <PRIVATE