updates ++snag to cast the product

This commit is contained in:
Joseph Bryan 2016-10-11 16:35:45 -04:00
parent 42e1d2e1cb
commit ce1ec798a3

View File

@ -798,7 +798,7 @@
++ snag :: index
~/ %snag
|* {a/@ b/(list)}
|-
|- ^+ ?>(?=(^ b) i.b)
?~ b
~|('snag-fail' !!)
?: =(0 a) i.b