diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt index c07e4a8..5ff4dd5 100644 --- a/js-assembler/package.rkt +++ b/js-assembler/package.rkt @@ -30,7 +30,7 @@ (provide package - package-anonymous + ;;package-anonymous package-standalone-xhtml get-inert-code get-standalone-code @@ -77,14 +77,14 @@ -(define (package-anonymous source-code - #:should-follow-children? should-follow? - #:output-port op) - (fprintf op "(function() {\n") - (package source-code - #:should-follow-children? should-follow? - #:output-port op) - (fprintf op " return invoke; })\n")) +;; (define (package-anonymous source-code +;; #:should-follow-children? should-follow? +;; #:output-port op) +;; (fprintf op "(function() {\n") +;; (package source-code +;; #:should-follow-children? should-follow? +;; #:output-port op) +;; (fprintf op " return invoke; })\n")) @@ -456,10 +456,10 @@ EOF ;; write-standalone-code: source output-port -> void (define (write-standalone-code source-code op) - (package-anonymous source-code - #:should-follow-children? (lambda (src) #t) - #:output-port op) - (fprintf op "()(plt.runtime.currentMachine, function() {}, function() {}, {});\n")) + (package source-code + #:should-follow-children? (lambda (src) #t) + #:output-port op)) + diff --git a/tests/browser-harness.rkt b/tests/browser-harness.rkt index 1f25cf4..2eb7ffb 100644 --- a/tests/browser-harness.rkt +++ b/tests/browser-harness.rkt @@ -19,42 +19,38 @@ racket/path racket/port)) +(define first-run #t) + (define evaluate (make-evaluate (lambda (program op) (fprintf op "(function () {") - - (displayln (get-runtime) op) - (newline op) - - (fprintf op "var innerInvoke = ") - (package-anonymous program - #:should-follow-children? (lambda (src) #t) - #:output-port op) - (fprintf op "();\n") - - (fprintf op #<