processing: use 'at'

db4
Eduardo Cavazos 2008-04-10 22:34:26 -05:00
parent c71a46d15e
commit bbf5234a9e
1 changed files with 3 additions and 1 deletions
extra/processing

View File

@ -28,7 +28,9 @@ IN: processing
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
! : at-fraction ( seq fraction -- val ) over length 1- * nth-at ;
: at-fraction ( seq fraction -- val ) over length 1- * at ;
: at-fraction-of ( fraction seq -- val ) swap at-fraction ;