Changeset 28117 in project


Ignore:
Timestamp:
01/16/13 23:27:08 (9 years ago)
Author:
felix winkelmann
Message:

_ is no opchar, identifiers may start with _, ruthlessly copied into tagdir

Location:
release/4/honu
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/honu/tags/2.1/honu.scm

    r28114 r28117  
    99
    1010(define-constant +operator-chars+
    11   '(#\- #\+ #\/ #\? #\: #\* #\% #\& #\! #\. #\~ #\_ #\| #\> #\< #\= #\^) )
     11  '(#\- #\+ #\/ #\? #\: #\* #\% #\& #\! #\. #\~ #\| #\> #\< #\= #\^) )
    1212
    1313;; variant to keep old signature working
     
    110110              (else
    111111               (cond ((char-numeric? c) (lnw (read-num)))
    112                      ((char-alphabetic? c)
     112                     ((or (char-alphabetic? c) (char=? c #\_))
    113113                      (lnw
    114114                       (string->symbol
  • release/4/honu/trunk/honu.scm

    r28085 r28117  
    99
    1010(define-constant +operator-chars+
    11   '(#\- #\+ #\/ #\? #\: #\* #\% #\& #\! #\. #\~ #\_ #\| #\> #\< #\= #\^) )
     11  '(#\- #\+ #\/ #\? #\: #\* #\% #\& #\! #\. #\~ #\| #\> #\< #\= #\^) )
    1212
    1313;; variant to keep old signature working
     
    110110              (else
    111111               (cond ((char-numeric? c) (lnw (read-num)))
    112                      ((char-alphabetic? c)
     112                     ((or (char-alphabetic? c) (char=? c #\_))
    113113                      (lnw
    114114                       (string->symbol
Note: See TracChangeset for help on using the changeset viewer.