Changeset 34660 in project


Ignore:
Timestamp:
10/01/17 00:57:00 (3 weeks ago)
Author:
kon
Message:

fix body

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/string-utils/trunk/string-interpolation-body.scm

    r34657 r34660  
    2020        ;in the text to interpolated
    2121        (define (interpolate-body)
    22           (case (peek-char strp)
    23             ;dup so identity
    24             ((char=? eval-tag ch)
    25               (begin
    26                 (read-char strp) ;drop char
    27                 (loop ls (push-char eval-tag)) ) )
    28             ;begin special eval region
    29             ((char=? #\{ ch)
    30               (loop
    31                 (cons (->string (eval (car (read strp)) eval-env)) (end-str))
    32                 #f) )
    33             ;end special eval region no matter what
    34             ;!!! we do not test for #\} !!!
    35             (else
    36               (loop
    37                 (cons (->string (eval (read strp) eval-env)) (end-str))
    38                 #f) ) ) )
     22          (let ((ch (peek-char strp)))
     23            (cond
     24              ((eof-object? ch)
     25                (loop ls sl) )
     26              ;dup so identity
     27              ((char=? eval-tag ch)
     28                (begin
     29                  (read-char strp) ;drop char
     30                  (loop ls (push-char eval-tag)) ) )
     31              ;begin special eval region
     32              ((char=? #\{ ch)
     33                (loop
     34                  (cons (->string (eval (car (read strp)) eval-env)) (end-str))
     35                  #f) )
     36              ;end special eval region no matter what
     37              ;!!! we do not test for #\} !!!
     38              (else
     39                (loop
     40                  (cons (->string (eval (read strp) eval-env)) (end-str))
     41                  #f) ) ) ) )
    3942        ;in the body or not
    4043        (let ((ch (read-char strp)))
Note: See TracChangeset for help on using the changeset viewer.