Changeset 21993 in project for release/4/nomads/trunk/nomads.scm


Ignore:
Timestamp:
12/14/10 21:01:52 (10 years ago)
Author:
certainty
Message:

nomads: irreversible migrations can take an optional message now

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/nomads/trunk/nomads.scm

    r21562 r21993  
    33;;
    44;; Created: Do Nov 11 14:10:17 2010 (CET)
    5 ;; Last-Updated: Do Nov 18 19:52:26 2010 (CET)
     5;; Last-Updated: Di Dez 14 20:37:12 2010 (CET)
    66;;           By:
    77
     
    340340    ((db-with-transaction) db
    341341     (lambda ()
    342        (run-statements db stmts (lambda () (callback check-point #t) (exit #f)))
     342       (run-statements db stmts (lambda (#!optional (message ""))
     343                                  (callback check-point #t message)
     344                                  (exit #f)))
    343345       (finish-check-point db migration direction)))
    344346    (callback check-point #f)))
     
    361363     (cond
    362364      ((eq? stmt #f)     (irreversible))
     365      ((and (pair? stmt) (eq? (car stmt) #f) (string? (cdr stmt)))
     366       (irreversible (cdr stmt)))
    363367      ((procedure? stmt) (stmt db))
    364368      ((string? stmt)    ((db-execute-sql) db stmt))
Note: See TracChangeset for help on using the changeset viewer.