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

adsoda, 4DNav: fix compile errors exposed by stronger static checking

db4
Slava Pestov 2009-03-22 21:38:36 -05:00
parent 0a8fb3e5f3
commit 69bf52c2a6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/4DNav/4DNav.factor
View File

@ -172,7 +172,7 @@ VAR: present-space
swap call space-ensure-solids swap call space-ensure-solids
>present-space >present-space
update-model-projections update-model-projections
update-observer-projections ; update-observer-projections ; inline
: rotation-4D ( m -- ) : rotation-4D ( m -- )
'[ _ [ [ middle-of-space dup vneg ] keep '[ _ [ [ middle-of-space dup vneg ] keep

4
extra/adsoda/adsoda.factor
View File

@ -60,7 +60,7 @@ t to: remove-hidden-solids?
: dimension ( array -- x ) length 1- ; inline : dimension ( array -- x ) length 1- ; inline
: last ( seq -- x ) [ dimension ] [ nth ] bi ; inline : last ( seq -- x ) [ dimension ] [ nth ] bi ; inline
: change-last ( seq quot -- ) : change-last ( seq quot -- )
[ [ dimension ] keep ] dip change-nth ; [ [ dimension ] keep ] dip change-nth ; inline
! ------------------------------------------------------------- ! -------------------------------------------------------------
! light ! light
@ -445,7 +445,7 @@ TUPLE: space name dimension solids ambient-color lights ;
: space-apply ( space m quot -- space ) : space-apply ( space m quot -- space )
curry [ map ] curry [ dup solids>> ] dip curry [ map ] curry [ dup solids>> ] dip
[ call ] [ drop ] recover drop ; [ call ] [ 2drop ] recover drop ; inline
: space-transform ( space m -- space ) : space-transform ( space m -- space )
[ solid-transform ] space-apply ; [ solid-transform ] space-apply ;
: space-translate ( space v -- space ) : space-translate ( space v -- space )