aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKamil Cholewiński <harry666t@gmail.com>2015-10-10 12:06:30 +0200
committerKamil Cholewiński <harry666t@gmail.com>2015-10-10 12:06:30 +0200
commit46de51b41584c93283d3fb25d6d5b94df3d3726f (patch)
tree9c1d7cd7fca41a2527c5dbd213792ca41df5f726
parentd3f6772758fdeaa1ea97657641081a619ee4f8eb (diff)
downloadtinyscheme-46de51b41584c93283d3fb25d6d5b94df3d3726f.zip
tinyscheme-46de51b41584c93283d3fb25d6d5b94df3d3726f.tar.gz
tinyscheme-46de51b41584c93283d3fb25d6d5b94df3d3726f.tar.bz2
remove TOK_COMMENT
-rw-r--r--scheme.c21
1 files changed, 0 insertions, 21 deletions
diff --git a/scheme.c b/scheme.c
index b32ba70..ef152e8 100644
--- a/scheme.c
+++ b/scheme.c
@@ -51,7 +51,6 @@ enum {
TOK_DOT,
TOK_ATOM,
TOK_QUOTE,
- TOK_COMMENT,
TOK_DQUOTE,
TOK_BQUOTE,
TOK_COMMA,
@@ -4598,18 +4597,6 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
case TOK_EOF:
s_return(sc, sc->EOF_OBJ);
- /* NOTREACHED */
- /*
- * Commented out because we now skip comments in the scanner
- *
- case TOK_COMMENT: {
- int c;
- while ((c=inchar(sc)) != '\n' && c!=EOF)
- ;
- sc->tok = token(sc);
- s_goto(sc,OP_RDSEXPR);
- }
- */
case TOK_VEC:
s_save(sc, OP_RDVEC, sc->NIL, sc->NIL);
@@ -4699,14 +4686,6 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
sc->args = cons(sc, sc->value, sc->args);
sc->tok = token(sc);
- /* We now skip comments in the scanner
- while (sc->tok == TOK_COMMENT) {
- int c;
- while ((c=inchar(sc)) != '\n' && c!=EOF)
- ;
- sc->tok = token(sc);
- }
- */
if (sc->tok == TOK_EOF) {
s_return(sc, sc->EOF_OBJ);
} else if (sc->tok == TOK_RPAREN) {