Changeset 22763 in project for release/4/pandora/trunk/tests/run.scm


Ignore:
Timestamp:
02/18/11 17:49:01 (9 years ago)
Author:
Thomas Chust
Message:

[pandora] Replaced uses of deprecated procedures for CHICKEN 4.6.5 compatibility

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/pandora/trunk/tests/run.scm

    r15500 r22763  
    1313      (let ([ds (*sql-datastore* 'connect uri)])
    1414        (dynamic-wind
    15           noop
     15          void
    1616          (lambda ()
    1717            body ...)
     
    5050      (string-prefix?
    5151        "3."
    52         (ds 'fold (project 1) "" '("SELECT sqlite_version()") '()))))
     52        (ds 'fold
     53          (lambda (acc version)
     54            version)
     55          #f
     56          '("SELECT sqlite_version()")
     57          '()))))
    5358
    5459  (test-group "SQL formatting"
Note: See TracChangeset for help on using the changeset viewer.