Changeset 7203 in project


Ignore:
Timestamp:
12/27/07 03:58:10 (12 years ago)
Author:
Ivan Raikov
Message:

More updates related to ode-bpr.

Location:
ode/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • ode/trunk/extensions/ode-bpr.scm

    r7201 r7203  
    120120
    121121 
    122 (define (ode:pr-transformer sys)
     122(define (ode:bpr-transformer sys)
    123123  (let ((new-env    (ode:env-copy sys #t))
    124124        (ode        (match (environment-ref sys (ode-intern 'odecore))
  • ode/trunk/ode-macros.scm

    r7201 r7203  
    3636(define-macro (with-ode-system name declarations . body)
    3737  (match declarations
    38          (('odecore ode-params sysdecls)
    39           `(let* ((ode   (apply make-ode ,ode-params))
     38         (('ode-core ode-params sysdecls)
     39          `(let* ((ode   (apply make-ode ',ode-params))
    4040                  (,name ((ode 'system) ',name)))
    4141             (eval-ode-system-decls ode ',name ,name (list ,@(map (lambda (x) (list 'quasiquote x)) sysdecls)))
  • ode/trunk/ode.scm

    r7201 r7203  
    888888                                                    prtitems)
    889889                                                   (fprintf out "\n")
    890                                                    (set! prti (if prtfrom (fx+ 1 prtfrom) 1))))
    891                                          (set! prti (fx+ 1 prti))))))
     890                                                   (set! prti (if prtfrom (fx+ 1 prtfrom) 1)))
     891                                                 (set! prti (fx+ 1 prti)))))))
    892892
    893893                        ((debug)      (list (cons 'eval-poset (vector->list eval-poset))
Note: See TracChangeset for help on using the changeset viewer.