ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/microscheme/scheme.c
(Generate patch)

Comparing cvsroot/microscheme/scheme.c (file contents):
Revision 1.21 by root, Thu Nov 26 22:55:39 2015 UTC vs.
Revision 1.22 by root, Thu Nov 26 23:26:00 2015 UTC

… …
4023 4023
4024 case OP_MUL: /* * */ 4024 case OP_MUL: /* * */
4025 v = num_one; 4025 v = num_one;
4026 4026
4027 for (x = args; x != NIL; x = cdr (x)) 4027 for (x = args; x != NIL; x = cdr (x))
4028 v = num_op ('+', v, nvalue (car (x))); 4028 v = num_op ('*', v, nvalue (car (x)));
4029 4029
4030 s_return (mk_number (SCHEME_A_ v)); 4030 s_return (mk_number (SCHEME_A_ v));
4031 4031
4032 case OP_SUB: /* - */ 4032 case OP_SUB: /* - */
4033 if (cdr (args) == NIL) 4033 if (cdr (args) == NIL)
… …
4040 x = cdr (args); 4040 x = cdr (args);
4041 v = nvalue (car (args)); 4041 v = nvalue (car (args));
4042 } 4042 }
4043 4043
4044 for (; x != NIL; x = cdr (x)) 4044 for (; x != NIL; x = cdr (x))
4045 v = num_op ('+', v, nvalue (car (x))); 4045 v = num_op ('-', v, nvalue (car (x)));
4046 4046
4047 s_return (mk_number (SCHEME_A_ v)); 4047 s_return (mk_number (SCHEME_A_ v));
4048 4048
4049 case OP_DIV: /* / */ 4049 case OP_DIV: /* / */
4050 if (cdr (args) == NIL) 4050 if (cdr (args) == NIL)

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines