# HG changeset patch # User Adam Chlipala # Date 1253640467 14400 # Node ID 733f67bb64e7c380376e0234933dd128822697ad # Parent c22e524a6dd37da71ff240adea17c187badc5153 Functions working with interpretation diff -r c22e524a6dd3 -r 733f67bb64e7 src/c/urweb.c --- a/src/c/urweb.c Tue Sep 22 13:23:27 2009 -0400 +++ b/src/c/urweb.c Tue Sep 22 13:27:47 2009 -0400 @@ -1292,7 +1292,7 @@ strcpy(ctx->script.front, s); ctx->script.front += s_len; strcpy(ctx->script.front, "));"); - ctx->script.front += 2; + ctx->script.front += 3; return ctx->source_count++; } @@ -1307,7 +1307,7 @@ strcpy(ctx->script.front, s); ctx->script.front += s_len; strcpy(ctx->script.front, "));"); - ctx->script.front += 2; + ctx->script.front += 3; return uw_unit_v; } diff -r c22e524a6dd3 -r 733f67bb64e7 tests/jscomp.ur --- a/tests/jscomp.ur Tue Sep 22 13:23:27 2009 -0400 +++ b/tests/jscomp.ur Tue Sep 22 13:27:47 2009 -0400 @@ -1,10 +1,15 @@ fun main () = s <- source ""; + f <- source (plus 1); return -
+

+ + Function: