From bbf5234a9e1442d0561bc9b5e54ac99b7e742f0c Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Thu, 10 Apr 2008 22:34:26 -0500 Subject: [PATCH] processing: use 'at' --- extra/processing/processing.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/processing/processing.factor b/extra/processing/processing.factor index 0f21634dc8..e089b15e7e 100644 --- a/extra/processing/processing.factor +++ b/extra/processing/processing.factor @@ -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 ;