[Tinyos-commits] CVS: tinyos-1.x/tos/lib/VM/languages/motlle/standalone lexer.l, 1.4, 1.5 scheme.c, 1.6, 1.7

[David Gay]

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

Modified Files:
	lexer.l scheme.c 
Log Message:
misc fixes


Index: lexer.l
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone/lexer.l,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** lexer.l	7 Oct 2005 17:15:11 -0000	1.4
--- lexer.l	25 Oct 2005 00:39:11 -0000	1.5
***************
*** 235,239 ****
  .	{ log_error(lexloc, "Bad character %s(%02x)", yytext, (unsigned char)yytext[0]); }
  
! <schemelex>({SCHEME_SYMBOL}|[+]|[-]) {
  		yylval.symbol = allocate(parser_memory,strlen(yytext) + 1);
  		strlwr(strcpy(yylval.symbol, yytext));
--- 235,239 ----
  .	{ log_error(lexloc, "Bad character %s(%02x)", yytext, (unsigned char)yytext[0]); }
  
! <schemelex>({SCHEME_SYMBOL}|[+]|[-]|[|]) {
  		yylval.symbol = allocate(parser_memory,strlen(yytext) + 1);
  		strlwr(strcpy(yylval.symbol, yytext));

Index: scheme.c
===================================================================
RCS file: /cvsroot/tinyos/tinyos-1.x/tos/lib/VM/languages/motlle/standalone/scheme.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** scheme.c	23 Oct 2005 17:21:44 -0000	1.6
--- scheme.c	25 Oct 2005 00:39:11 -0000	1.7
***************
*** 82,86 ****
    { "-", 1, b_negate },
    { "*", -1, b_multiply },
-   { "/", 2, b_divide },
    { "remainder", 2, b_remainder },
    { "not", 1, b_not },
--- 82,85 ----