[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/standalone scheme.c, 1.7, 1.8

[David Gay]

Update of /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31438/motlle/standalone

Modified Files:
	scheme.c 
Log Message:
(if x y) should return y when x is true (as per scheme spec)
  -- (reason: tail recursion)


Index: scheme.c
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone/scheme.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** scheme.c	25 Oct 2005 00:39:11 -0000	1.7
--- scheme.c	29 Oct 2005 17:27:18 -0000	1.8
***************
*** 390,398 ****
      sgen_if_mgc(l, cond, true, args->car, discard, fn);
    else
!     {
!       sgen_if_mgc(l, cond, true, NULL, TRUE, fn);
!       if (!discard)
! 	ins_undefined(fn);
!     }
  }
  
--- 390,394 ----
      sgen_if_mgc(l, cond, true, args->car, discard, fn);
    else
!     sgen_if_mgc(l, cond, true, makeint(42), discard, fn);
  }