Changeset 28125 in project for release/4/honu/trunk/honu.scm


Ignore:
Timestamp:
01/18/13 23:55:09 (9 years ago)
Author:
felix winkelmann
Message:

honu 2.2: fix tests and add another hack for prolog

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/honu/trunk/honu.scm

    r28117 r28125  
    117117                           (or (char-alphabetic? c) (char-numeric? c) (char=? #\_ c)))
    118118                         port) ) ))
     119                     ((and (char=? c #\!) (eq? flavor 'prolog))
     120                      (read-char port)
     121                      (lnw '!))         ; special case for prolog - "!" is sort of punctuation
    119122                     ((opchar? c) (lnw (string->symbol (read-token opchar? port))))
    120123                     (else (err "invalid character" c)) ) ) ) ) ) )
Note: See TracChangeset for help on using the changeset viewer.