diff options
| author | Arun Isaac | 2025-12-02 23:16:59 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-17 00:06:43 +0000 |
| commit | 0e855bad4d4cc0251497d63f7d1885fdbf788479 (patch) | |
| tree | 7518a12eba6233880a3dedcbd731b3f84d006463 | |
| parent | 0cbdd37725e4a4b875e4ad0c7874ce1d4502d973 (diff) | |
| download | ravanan-0e855bad4d4cc0251497d63f7d1885fdbf788479.tar.gz ravanan-0e855bad4d4cc0251497d63f7d1885fdbf788479.tar.lz ravanan-0e855bad4d4cc0251497d63f7d1885fdbf788479.zip | |
javascript: Declare variables using var.
| -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)"))) |