Changeset 38244 in project


Ignore:
Timestamp:
03/14/20 17:05:21 (2 weeks ago)
Author:
Kon Lovett
Message:

utf8 dep so auto test dep so incl test, better var names

Location:
release/5/string-utils/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/string-utils/trunk/string-interpolation-syntax.scm

    r38017 r38244  
    2525      (let (
    2626        (proc (if (procedure? proc) proc identity)) )
    27         (lambda (bodyp)
     27        (lambda (rest-port)
    2828          (call-with-input-string "\""
    29             (lambda (quotep)
     29            (lambda (head-port)
    3030              (let* (
    3131                ;forms [(") (body...")] so read as "...body..."
    32                 (stringp (make-concatenated-port quotep bodyp))
    33                 (str (read stringp)) )
     32                (port (make-concatenated-port head-port rest-port))
     33                (str (read port)) )
    3434                (proc str) ) ) ) ) ) ) ) )
    3535
  • release/5/string-utils/trunk/tests/run.scm

    r37679 r38244  
    44;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
    55
    6 (import
    7   (only (chicken pathname) make-pathname)
    8   (only (chicken process) system)
    9   (only (chicken process-context) argv)
    10   (only (chicken format) format))
     6(import (only (chicken pathname) make-pathname))
     7(import (only (chicken process) system))
     8(import (only (chicken process-context) argv))
     9(import (only (chicken format) format))
    1110
    1211(define *args* (argv))
  • release/5/string-utils/trunk/tests/string-utils-test.scm

    r37864 r38244  
    7070;;
    7171
    72 #|
    7372(import (prefix utf8-string-interpolator utf8:))
    7473
     
    8079    (test res (utf8:string-interpolate "听诎䞊海的 $(+ 1 2) 䞜西埈莵" eval-tag: #\$)) )
    8180)
    82 |#
     81
     82;;
    8383
    8484(import string-interpolator)
     
    9191    (test res (string-interpolate "foo $(+ 1 2) bar" eval-tag: #\$)) )
    9292)
     93
     94;;
    9395
    9496(import string-interpolation-syntax (chicken port))
Note: See TracChangeset for help on using the changeset viewer.