Changeset 8342


Ignore:
Timestamp:
01/11/05 18:03:43 (17 years ago)
Author:
piso
Message:

readToken(): check for escaped ':' at beginning of token.

File:
1 edited

Legend:

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

    r8341 r8342  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.101 2005-01-11 17:47:10 piso Exp $
     5 * $Id: Stream.java,v 1.102 2005-01-11 18:03:43 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    635635            }
    636636            if (firstChar == ':')
    637                 return PACKAGE_KEYWORD.intern(token.substring(1));
     637                if (flags == null || !flags.get(0))
     638                    return PACKAGE_KEYWORD.intern(token.substring(1));
    638639            int index = findUnescapedDoubleColon(token, flags);
    639640            if (index > 0) {
Note: See TracChangeset for help on using the changeset viewer.