Changeset 28125 in project


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

honu 2.2: fix tests and add another hack for prolog

Location:
release/4/honu
Files:
4 edited
3 copied

Legend:

Unmodified
Added
Removed
  • release/4/honu/tags/2.2/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)) ) ) ) ) ) )
  • release/4/honu/tags/2.2/honu.setup

    r25847 r28125  
    66(install-extension
    77 'honu '("honu.so" "honu.import.so")
    8  '((version 2.1)))
     8 '((version 2.2)))
  • release/4/honu/tags/2.2/tests/run.scm

    r28114 r28125  
    77            (current-input-port)
    88            (lambda (p)
    9               (let ((x (read-honu p line-numbers: #t)))
     9              (let ((x (read-honu port: p line-numbers: #t)))
    1010                (pp x)
    1111                x) ) ) ) ) ) )
     
    1414  (assert (equal? data
    1515                  (with-input-from-file "expected" read))))
    16 
    17 
    18 
  • 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)) ) ) ) ) ) )
  • release/4/honu/trunk/honu.setup

    r25847 r28125  
    66(install-extension
    77 'honu '("honu.so" "honu.import.so")
    8  '((version 2.1)))
     8 '((version 2.2)))
  • release/4/honu/trunk/tests/run.scm

    r28114 r28125  
    77            (current-input-port)
    88            (lambda (p)
    9               (let ((x (read-honu p line-numbers: #t)))
     9              (let ((x (read-honu port: p line-numbers: #t)))
    1010                (pp x)
    1111                x) ) ) ) ) ) )
     
    1414  (assert (equal? data
    1515                  (with-input-from-file "expected" read))))
    16 
    17 
    18 
Note: See TracChangeset for help on using the changeset viewer.