gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/src/mjc2wsl.java b/src/mjc2wsl.java
index 4723e4d7188758aa7fec99484ac4b818de92abc2..dec76fe6b66d64c19d3d707e6dfa63c010d9c613 100644 (file)
--- a/src/mjc2wsl.java
+++ b/src/mjc2wsl.java
prl(createTopTwoEStack());
if (genInlinePrint){
prl(createComment("print spacing",C_SPEC));
- prl("PRINFLUSH(SUBSTR(\" \", 0, MIN(10, MAX(0, tempa-1))), tempb);");
+ prl("PRINFLUSH(SUBSTR(\" \", 0, MIN(10, MAX(0, tempa-SLENGTH(@String(tempb))))), tempb);");
}
else
prl("Print_MJ(tempb,tempa);");