use js-context in eval-js

diff --git a/extra/javascriptcore/javascriptcore.factor b/extra/javascriptcore/javascriptcore.factor
index 65b6fe5fff621e1aeb55320ab43bb21eaae43466..738f1749bca588a25cfc6e1029b61a22ea13c707 100644 (file)
--- a/extra/javascriptcore/javascriptcore.factor
+++ b/extra/javascriptcore/javascriptcore.factor
@@ -8,20 +8,20 @@ IN: javascriptcore
 
 ERROR: javascriptcore-error error ;
 
-: with-javascriptcore ( quot -- )
-    set-callstack-bounds
-    call ; inline
-
 SYMBOL: js-context
 
 : with-global-context ( quot -- )
     [
-        [ f JSGlobalContextCreate ] dip
-        [ '[ _ @ ] ]
+        [ f JSGlobalContextCreate dup js-context set ] dip
+        [ nip '[ @ ] ]
         [ drop '[ _ JSGlobalContextRelease ] ] 2bi
         [ ] cleanup
     ] with-scope ; inline
 
+: with-javascriptcore ( quot -- )
+    set-callstack-bounds
+    with-global-context ; inline
+
 : JSString>string ( JSString -- string )
     dup JSStringGetMaximumUTF8CStringSize [ <byte-array> ] keep
     [ JSStringGetUTF8CString drop ] [ drop ] 2bi
@@ -35,13 +35,14 @@ SYMBOL: js-context
         drop f
     ] if* ;
 
-: eval-js ( context string -- result-string )
-    dupd JSStringCreateWithUTF8CString f f 0 JSValueRef <c-object>
+: eval-js ( string -- result-string )
+    [ js-context get dup ] dip
+    JSStringCreateWithUTF8CString f f 0 JSValueRef <c-object>
     [ JSEvaluateScript ] keep *void*
     dup [ nip JSValueRef>string javascriptcore-error ] [ drop JSValueRef>string ] if ;
 
 : eval-js-standalone ( string -- result-string )
-    '[ [ _ eval-js ] with-global-context ] with-javascriptcore ;
+    '[ _ eval-js ] with-javascriptcore ;
 
 : eval-js-path-standalone ( path -- result-string ) utf8 file-contents eval-js-standalone ;