diff options
| author | Justus Winter <[email protected]> | 2016-11-08 17:35:42 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-11-10 13:57:07 +0000 |
| commit | 9ee184bc0afaea06785d836ed175b851b9ae532f (patch) | |
| tree | ddcfa5e2227bc1f670e05cb4db48ee71a10a3b2f /tests/gpgscm/scheme.c | |
| parent | gpgscm: Remove dubious stack implementation. (diff) | |
| download | gnupg-9ee184bc0afaea06785d836ed175b851b9ae532f.tar.gz gnupg-9ee184bc0afaea06785d836ed175b851b9ae532f.zip | |
gpgscm: Drop obsolete commented-out code.
* tests/gpgscm/scheme.c (opexe_5): Drop obsolete code.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/gpgscm/scheme.c')
| -rw-r--r-- | tests/gpgscm/scheme.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index c1340d7a3..6daa280be 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -4056,17 +4056,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); /* fall through */ @@ -4135,14 +4124,6 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) { case OP_RDLIST: { 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) { |