Changeset 4447 in project for format-modular/tags


Ignore:
Timestamp:
06/07/07 19:01:01 (13 years ago)
Author:
Kon Lovett
Message:

Rplcd ' w/ ` so version code is evaled.

Location:
format-modular/tags/1.7
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • format-modular/tags/1.7/format-modular.scm

    r4403 r4447  
    435435  (write-char ((state-caseconv state) char) (state-out state)) )
    436436
     437; Output a list-of char.
     438
    437439(define (*formatter-out-char-list state char-list)
    438440  (for-each (cut *formatter-out-char state <>) char-list) )
    439441
    440 ; Output a string.
    441 
    442442(cond-expand
    443443  (chicken
     444
     445    ; Like string-map but guarantees the order of application.
    444446
    445447    (define (map-string-in-order p s . args)
     
    453455            s start end)
    454456          ss ) ) )
     457
     458    ; Output a string.
    455459
    456460    (define (*formatter-out-string state str)
     
    474478                (substr-conv)))
    475479            #f (state-out state)) ) ) )
     480
     481    ; Output n repetitions of a char.
    476482
    477483    (define *formatter-out-char-times
     
    501507  ) (else
    502508
     509    ; Output n repetitions of a char.
     510
    503511    (define (*formatter-out-char-times state times char)
    504512      (do ((i times (fx- i 1)))
    505513          ((fx>= 0 i))
    506514        (*formatter-out-char state char) ) )
     515
     516    ; Output a string.
    507517
    508518    (define (*formatter-out-string state str)
  • format-modular/tags/1.7/format-modular.setup

    r4405 r4447  
    2525(install-extension 'format-modular
    2626  '("format-modular.so" "format-modular.o")
    27   '((version ,(if (file-exists? "version") (with-input-from-file "version" read) "unknown"))
     27  `((version ,(if (file-exists? "version") (with-input-from-file "version" read) "unknown"))
    2828    (static "format-modular.o")
    2929    (documentation "format-modular.html")))
Note: See TracChangeset for help on using the changeset viewer.