>>> testJSaddle $ eval "'Hello World'.indexOf('World')" 6 >>> testJSaddle $ val "Hello World" # "indexOf" $ ["World"] 6
>>> testJSaddle $ eval "something = {}; something[6]=function (x) {return x.length;}; something[6]('World')" 5 >>> testJSaddle $ jsg "something" ## 6 $ ["World"] 5
unstream . streamCString# addr# = unpackCString# addr#
>>> testJSaddle $ eval "var j = {}; j.x = 1; j.x" 1 >>> testJSaddle $ do {j <- obj; (j <# "x") 1; j!"x"} 1
>>> testJSaddle $ eval "var j = {}; j[6] = 1; j[6]" 1 >>> testJSaddle $ do {j <- obj; (j <## 6) 1; j!!6} 1