suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing print-values

Browse Source
This commit is contained in:
Danny Yoo 2011-05-25 18:07:55 -04:00
parent 380890b13d
commit a92e6b95e4
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
js-assembler/mini-runtime.js
View File

@ -485,14 +485,25 @@
Primitives['print-values'] = new Closure(
function(MACHINE) {
var outputPort = MACHINE.params.currentOutputPort;
var prependNewline = false;
if (MACHINE.argcount > 0) {
outputPort.write(MACHINE, MACHINE.val);
outputPort.write(MACHINE, "\n");
if (MACHINE.val !== undefined) {
if (prependNewline) {
outputPort.write(MACHINE, "\n");
}
outputPort.write(MACHINE, MACHINE.val);
prependNewline = true;
}
for(var i = 0; i < MACHINE.argcount - 1; i++) {
outputPort.write(MACHINE, "\n");
outputPort.write(MACHINE,
MACHINE.env[MACHINE.env.length - 1 - i]);
if (MACHINE.env[MACHINE.env.length - 1 - i] !== undefined) {
if (prependNewline) {
outputPort.write(MACHINE, "\n");
}
outputPort.write(MACHINE,
MACHINE.env[MACHINE.env.length - 1 - i]);
prependNewline = true;
}
}
outputPort.write(MACHINE, "\n");
}