Changeset 30878 in project


Ignore:
Timestamp:
05/16/14 09:08:41 (6 years ago)
Author:
Ivan Raikov
Message:

signal-diagram: correction to the data flow equations of relations

Location:
release/4/signal-diagram/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/signal-diagram/trunk/signal-diagram.scm

    r30066 r30878  
    1111;;  Developed by the Yale Haskell Group.
    1212;;
    13 ;; Copyright 2010-2013 Ivan Raikov and the Okinawa Institute of
     13;; Copyright 2010-2014 Ivan Raikov and the Okinawa Institute of
    1414;; Science and Technology.
    1515;;
     
    348348
    349349  (if (relation? r)
     350
    350351      (let* ((dfe (sfarrow-dfe sf))
    351352             (dfe1 (make-dfe (dfe-gen dfe) (dfe-kill dfe)
    352353                             (lambda (s) (delete-duplicates
    353                                           (append ((dfe-in dfe) s)
    354                                                   (relations-inputs sf)
    355                                                   (relation-vars r))))
     354                                          (lset-difference eq?
     355                                              (append ((dfe-in dfe) s)
     356                                                      (relations-inputs sf))
     357                                              (relation-vars r))))
    356358                             (dfe-out dfe))))
    357359        (make-sfarrow dfe1
     
    359361                      (sfarrow-sig sf) (sfarrow-children sf)
    360362                      (cons r (sfarrow-relations sf))))
     363
    361364      (error 'sf-relation "invalid relation" r)))
    362365
  • release/4/signal-diagram/trunk/signal-diagram.setup

    r30071 r30878  
    44  (make-pathname #f fn ##sys#load-dynamic-extension))   
    55
    6 (define version 3.1)
     6(define version 3.2)
    77
    88(use make)
Note: See TracChangeset for help on using the changeset viewer.