visionect: handle non-post-data in visionect-post.

diff --git a/extra/visionect/visionect.factor b/extra/visionect/visionect.factor
index 24ee5983c0b9e33ebe4277cf552e92ad8fb3eda2..fd76020453bfc74be44f5940426382612bfc9a91 100644 (file)
--- a/extra/visionect/visionect.factor
+++ b/extra/visionect/visionect.factor
@@ -49,7 +49,8 @@ SYMBOL: visionect-api-secret
 
 : visionect-post ( post-data path -- data )
     visionect-url <post-request>
-    dup post-data>> content-type>> "content-type" set-header
+    dup post-data>> dup post-data?
+    [ content-type>> "content-type" set-header ] [ drop ] if
     visionect-request ;
 
 PRIVATE>