Changeset 34658 in project


Ignore:
Timestamp:
10/01/17 00:53:30 (3 months ago)
Author:
kon
Message:

fix str# body

Location:
release/4/moremacros/trunk
Files:
2 edited

Legend:

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

    r33907 r34658  
    5959            ; in the '#
    6060            (define (sharp-body)
    61               (case (peek-char strp)
    62                 ; dup so identity
    63                 ((char=? #\# ch)
    64                   (begin
    65                     (read-char strp) ;drop char
    66                     (loop ls (out-char #\#)) ) )
    67                 ; begin special eval region
    68                 ((char=? #\{ #;#\} ch)
    69                   (loop (cons (inj (car (read strp))) (end-str)) #f) )
    70                 ; end special eval region no matter what
    71                 ;!!! we do not test for #\} !!!
    72                 (else
    73                   (loop (cons (inj (read strp)) (end-str)) #f) ) ) )
     61              (let ((ch (peek-char strp)))
     62                (cond
     63                  ((eof-object? ch)
     64                    (loop ls sl) )
     65                  ; dup so identity
     66                  ((char=? #\# ch)
     67                    (begin
     68                      (read-char strp) ;drop char
     69                      (loop ls (out-char #\#)) ) )
     70                  ; begin special eval region
     71                  ((char=? #\{ #;#\} ch)
     72                    (loop (cons (inj (car (read strp))) (end-str)) #f) )
     73                  ; end special eval region no matter what
     74                  ;!!! we do not test for #\} !!!
     75                  (else
     76                    (loop (cons (inj (read strp)) (end-str)) #f) ) ) ) )
    7477            ; in the '# or not
    7578            (let ((ch (read-char strp)))
  • release/4/moremacros/trunk/moremacros.setup

    r33907 r34658  
    55(verify-extension-name "moremacros")
    66
    7 (setup-shared-extension-module 'moremacros (extension-version "1.4.0"))
     7(setup-shared-extension-module 'moremacros (extension-version "1.4.1"))
    88
    9 (setup-shared-extension-module 'hash-let (extension-version "1.4.0"))
     9(setup-shared-extension-module 'hash-let (extension-version "1.4.1"))
    1010
    11 (setup-shared-extension-module 'numeric-macros (extension-version "1.4.0"))
     11(setup-shared-extension-module 'numeric-macros (extension-version "1.4.1"))
Note: See TracChangeset for help on using the changeset viewer.