diff options
| -rw-r--r-- | ravanan/javascript.scm | 12 | ||||
| -rw-r--r-- | tests/javascript.scm | 18 |
2 files changed, 15 insertions, 15 deletions
diff --git a/ravanan/javascript.scm b/ravanan/javascript.scm index fa63fff..be40fcd 100644 --- a/ravanan/javascript.scm +++ b/ravanan/javascript.scm @@ -130,9 +130,9 @@ the node javascript engine." (evaluate-javascript %node expression (string-append (string-join expression-lib) - "inputs = " (context-value "inputs") ";" - "self = " (context-value "self") ";" - "runtime = " (context-value "runtime") ";")) + "var inputs = " (context-value "inputs") ";" + "var self = " (context-value "self") ";" + "var runtime = " (context-value "runtime") ";")) ;; Compile to a G-expression that evaluates expression. #~(evaluate-javascript #$%worker-node #$expression @@ -140,9 +140,9 @@ the node javascript engine." ;; runtime. So, defer their reference to the ;; G-expression. (string-append #$(string-join expression-lib) - "inputs = " (scm->json-string inputs) ";" - "self = " (scm->json-string self) ";" - "runtime = " (scm->json-string runtime) ";")))) + "var inputs = " (scm->json-string inputs) ";" + "var self = " (scm->json-string self) ";" + "var runtime = " (scm->json-string runtime) ";")))) (define (tokenize-parameter-references str) "Split @var{str} into tokens of parameter reference and literal strings." diff --git a/tests/javascript.scm b/tests/javascript.scm index 58d2639..b249877 100644 --- a/tests/javascript.scm +++ b/tests/javascript.scm @@ -122,9 +122,9 @@ '(evaluate-javascript (*approximate*) "(inputs.n + 1)" (string-append "" - "inputs = " (scm->json-string inputs) ";" - "self = " (scm->json-string self) ";" - "runtime = " (scm->json-string runtime) ";")) + "var inputs = " (scm->json-string inputs) ";" + "var self = " (scm->json-string self) ";" + "var runtime = " (scm->json-string runtime) ";")) (gexp->sexp-rec (evaluate-parameter-reference "$(inputs.n + 1)"))) @@ -137,9 +137,9 @@ (evaluate-javascript (*approximate*) "(inputs.threads*2)" (string-append "" - "inputs = " (scm->json-string inputs) ";" - "self = " (scm->json-string self) ";" - "runtime = " (scm->json-string runtime) ";")) + "var inputs = " (scm->json-string inputs) ";" + "var self = " (scm->json-string self) ";" + "var runtime = " (scm->json-string runtime) ";")) (json-ref inputs "output_filename"))) "") (gexp->sexp-rec @@ -155,9 +155,9 @@ (evaluate-javascript (*approximate*) "(inputs.object.foo*20)" (string-append "" - "inputs = " (scm->json-string inputs) ";" - "self = " (scm->json-string self) ";" - "runtime = " (scm->json-string runtime) ";")))) + "var inputs = " (scm->json-string inputs) ";" + "var self = " (scm->json-string self) ";" + "var runtime = " (scm->json-string runtime) ";")))) "") (gexp->sexp-rec (evaluate-parameter-reference "foo$(inputs.vector)$(inputs.object)$(inputs.object.foo*20)"))) |