Changeset 15085 in project for chicken/trunk


Ignore:
Timestamp:
06/27/09 15:45:11 (10 years ago)
Author:
felix winkelmann
Message:

fixed bug in format-string compilation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/optimizer.scm

    r15074 r15085  
    18551855                   x
    18561856                   (cdr x)
    1857                    r)))
     1857                   r c)))
    18581858       (if code
    18591859           `(,(r 'let) ((,out (,(r 'open-output-string))))
     
    18691869                      'fprintf (cadr x)
    18701870                      x (cddr x)
    1871                       r)))
     1871                      r c)))
    18721872           (if code
    18731873               code
     
    18811881                  'printf '##sys#standard-output
    18821882                  x (cdr x)
    1883                   r)))
     1883                  r c)))
    18841884       (if code
    18851885           code
     
    18871887   env))
    18881888
    1889 (define (compile-format-string func out x args r)
     1889(define (compile-format-string func out x args r c)
    18901890  (call/cc
    18911891   (lambda (return)
Note: See TracChangeset for help on using the changeset viewer.