… | … | ||
---|---|---|---|
4709 | 4709 | ||
4710 | case OP_QUIT: /* quit */ | 4710 | case OP_QUIT: /* quit */ |
4711 | if (is_pair (args)) | 4711 | if (is_pair (args)) |
4712 | SCHEME_V->retcode = ivalue (a); | 4712 | SCHEME_V->retcode = ivalue (a); |
4713 | 4713 | ||
4714 | exit(0);//D | ||
4715 | return -1; | 4714 | return -1; |
4716 | 4715 | ||
4717 | case OP_GC: /* gc */ | 4716 | case OP_GC: /* gc */ |
4718 | gc (SCHEME_A_ NIL, NIL); | 4717 | gc (SCHEME_A_ NIL, NIL); |
4719 | s_return (S_T); | 4718 | s_return (S_T); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |