Merge commit 'origin/master'

Makefile

@@ -36,6 +36,11 @@ test-conform:
 	raco make -v --disable-inline tests/test-conform.rkt
 	racket tests/test-conform.rkt
 
+test-more:
+	raco make -v --disable-inline tests/run-more-tests.rkt
+	racket tests/run-more-tests.rkt
+
+
 
 
 

examples/pacman.rkt

@@ -359,7 +359,7 @@
   (local [(define score-text
             (text (string-append "Score: " (number->string score)) SCORE-TEXT-SIZE "black"))]
     (place-image score-text
-                 (- (/ BOARD-WIDTH 2) (/ (image-width score-text) 2))
+                 (/ BOARD-WIDTH 2)
                  BOARD-HEIGHT
                  img)))
 

info.rkt

@@ -3,7 +3,7 @@
 (define name "Whalesong")
 (define blurb '("A Racket to JavaScript compiler"))
 (define release-notes '((p "A not-even-alpha release; please don't use this unless you expect sharp edges...")))
-(define version "0.01")
+(define version "0.02")
 (define categories '(devtools))
 (define repositories '("4.x"))
 (define required-core-version "5.1.1")

js-assembler/runtime-src/baselib-ports.js

@@ -16,7 +16,7 @@
     StandardOutputPort.prototype = baselib.heir(OutputPort.prototype);
     StandardOutputPort.prototype.writeDomNode = function(MACHINE, domNode) {
 	MACHINE.params['currentDisplayer'](MACHINE, domNode);
-        jQuery(domNode).trigger({type : 'afterAttach'});
+        jQuery('*', domNode).trigger({type : 'afterAttach'});
     };
 
     var StandardErrorPort = function() {
@@ -25,7 +25,7 @@
     StandardErrorPort.prototype = baselib.heir(OutputPort.prototype);
     StandardErrorPort.prototype.writeDomNode = function(MACHINE, domNode) {
 	MACHINE.params['currentErrorDisplayer'](MACHINE, domNode);
-        jQuery(domNode).trigger({type : 'afterAttach'});
+        jQuery('*', domNode).trigger({type : 'afterAttach'});
     };
 
 

scribblings/manual.scrbl

@@ -402,6 +402,7 @@ language.
 @defform[(current-output-port ...)]{}
 @defform[(current-print ...)]{}
 @defform[(write ...)]{}
+@defform[(write-byte ...)]{}
 @defform[(display ...)]{}
 @defform[(newline ...)]{}
 @defform[(format ...)]{}
@@ -458,14 +459,28 @@ language.
 @defform[(angle ...)]{}
 @defform[(magnitude ...)]{}
 @defform[(conjugate ...)]{}
-@defform[(number->string ...)]{}
 @defform[(string->number ...)]{}
-@defform[(pair? ...)]{}
+@defform[(number->string ...)]{}
+@defform[(random ...)]{}
 @defform[(exact? ...)]{}
+@defform[(integer? ...)]{}
+@defform[(zero? ...)]{}
+
+@subsection{String operations}
+@defform[(string=? ...)]{}
+@defform[(string->symbol ...)]{}
+@defform[(string-length ...)] {}
+@defform[(string-append ...)] {}
+
+
+@subsection{Symbol operations}
+@defform[(symbol? ...)]{}
+@defform[(symbol->string? ...)]{}
 
 
 
 @subsection{List operations}
+@defform[(pair? ...)]{}
 @defform[(cons ...)]{}
 @defform[(car ...)]{}
 @defform[(cdr ...)]{}
@@ -474,12 +489,16 @@ language.
 @defform[(append ...)]{}
 @defform[(reverse ...)]{}
 @defform[(map ...)]{}
+@defform[(for-each ...)]{}
 @defform[(member ...)]{}
+@defform[(list-ref ...)]{}
+@defform[(memq ...)]{}
+@defform[(assq ...)]{}
 
 
 
 @subsection{Vector operations}
-
+@defform[(vector? ...)]{}
 @defform[(make-vector ...)]{}
 @defform[(vector ...)]{}
 @defform[(vector-length ...)]{}

tests/more-tests/hello-bf.expected

@@ -0,0 +1 @@
+Hello World!

tests/run-more-tests.rkt

@@ -16,3 +16,4 @@
 (test "more-tests/images.rkt")
 (test "more-tests/lists.rkt")
 (test "more-tests/earley.rkt")
+(test "more-tests/hello-bf.rkt")

world/kernel.js

@@ -27,8 +27,9 @@ var bigBang = function(MACHINE, initW, handlers) {
 
     var oldArgcount = MACHINE.argcount;
 
-    var toplevelNode = $('<span/>').get(0);
-    MACHINE.params.currentOutputPort.writeDomNode(MACHINE, toplevelNode);
+    var outerToplevelNode = $('<span/>').get(0);
+    MACHINE.params.currentOutputPort.writeDomNode(MACHINE, outerToplevelNode);
+    var toplevelNode = $('<span/>').appendTo(outerToplevelNode).get(0);
 
     var configs = [];
     var isOutputConfigSeen = false;