Changeset 8499


Ignore:
Timestamp:
02/07/05 15:48:50 (17 years ago)
Author:
piso
Message:

READ-STRING: fixes for SET-SYNTAX-FROM-CHAR tests.

File:
1 edited

Legend:

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

    r8494 r8499  
    33 *
    44 * Copyright (C) 2004-2005 Peter Graves
    5  * $Id: LispReader.java,v 1.35 2005-02-06 18:48:04 piso Exp $
     5 * $Id: LispReader.java,v 1.36 2005-02-07 15:48:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4747                                "stream character")
    4848    {
    49         public LispObject execute(Stream stream, char ignored)
    50             throws ConditionThrowable
    51         {
     49        public LispObject execute(Stream stream, char terminator)
     50            throws ConditionThrowable
     51        {
     52            Readtable rt = currentReadtable();
    5253            StringBuffer sb = new StringBuffer();
    5354            while (true) {
     
    5859                    return null;
    5960                }
    60                 if (n == '\\') {
     61                char c = (char) n;
     62                if (rt.getSyntaxType(c) == Readtable.SYNTAX_TYPE_SINGLE_ESCAPE) {
    6163                    // Single escape.
    6264                    n = stream._readChar();
     
    7072                }
    7173                if (Utilities.isPlatformWindows) {
    72                     if (n == '\r') {
     74                    if (c == '\r') {
    7375                        n = stream._readChar();
    7476                        if (n < 0) {
     
    8789                    }
    8890                }
    89                 char c = (char) n;
    90                 if (c == '"')
     91                if (c == terminator)
    9192                    break;
    9293                // Default.
Note: See TracChangeset for help on using the changeset viewer.