Paste: Leonidas fails at cond

Author: Leonidas
Mode: factor
Date: Wed, 24 Feb 2010 20:37:58
Plain Text | 
: apply-rules ( seq -- seq ? ) { 
  { [ 2 tail* { right left } sequence= ] [ { left right } t ] } 
  [ f ] 
} cond ;

Annotation: with dup, but still failing

Author: Leonidas
Mode: factor
Date: Wed, 24 Feb 2010 20:41:41
Plain Text | 
: apply-rules ( seq -- seq ? ) { 
  { [ dup 2 tail* { right left } sequence= ] [ { left right } t ] } 
  [ f ] 
} cond ;

New Annotation

Summary:
Author:
Mode:
Body: