Changeset 6212


Ignore:
Timestamp:
03/12/04 01:37:11 (17 years ago)
Author:
piso
Message:

processChar(): work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Stream.java

    r6210 r6212  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: Stream.java,v 1.47 2004-03-12 01:13:10 piso Exp $
     5 * $Id: Stream.java,v 1.48 2004-03-12 01:37:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    266266//             case ';':
    267267//                 return LispReader.READ_COMMENT.execute(this, c);
    268             case ',':
    269                 return readComma();
    270             case '`':
    271                 return readBackquote();
     268//             case ',':
     269//                 return readComma();
     270//             case '`':
     271//                 return readBackquote();
    272272//             case '#':
    273273//                 return readSharp();
     
    380380    }
    381381
    382     private LispObject readComma() throws ConditionThrowable
     382    public LispObject readComma() throws ConditionThrowable
    383383    {
    384384        int n = _readChar();
     
    398398                                new Cons(read(true, NIL, true), NIL));
    399399        }
    400     }
    401 
    402     private LispObject readBackquote() throws ConditionThrowable
    403     {
    404         return new Cons(Symbol.BACKQUOTE, new Cons(read(true, NIL, true)));
    405400    }
    406401
Note: See TracChangeset for help on using the changeset viewer.