tweak sanitization to avoid ..8000 suffixes

This commit is contained in:
Anton Dyudin 2018-03-06 12:59:58 -08:00
parent 10e44abd53
commit 6e89d6c0d9

View File

@ -66,7 +66,7 @@
::
++ now-id
:: HACK "sanitized" now for id use, can't get mistaken for file with extension in url
`@da`(sub now.bol (div (mod now.bol ~s1) 2))
`@da`(sub now.bol (div (dis now.bol ~s0..fffe) 2))
::
++ poke-noun
|= a=$@(?(~ @da) [p=@da q=@da])