Correct off by one in ++gulf

This commit is contained in:
Raymond Pasco 2015-10-08 19:35:33 -04:00
parent faf75786ba
commit 4f961d6074

View File

@ -2222,7 +2222,7 @@
(a b c)
::
++ gulf :: range list
|=([a=@ b=@] `(list ,@)`?:(=(a b) ~ [a $(a +(a))]))
|=([a=@ b=@] `(list ,@)`?:(=(a +(b)) ~ [a $(a +(a))]))
::
++ hard :: force coerce to type
|* han=$+(* *)