Changeset 12113 in project for release/3/nemo/trunk/nemo-core.scm


Ignore:
Timestamp:
10/06/08 09:17:56 (13 years ago)
Author:
Ivan Raikov
Message:

Include support for complex prefixes in the names of transition states.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo-core.scm

    r12079 r12113  
    543543                           (cases nemo:quantity x
    544544                                  (TSCOMP (name initial open transitions power)
    545                                           (let ((ss (delete-duplicates (append (map second transitions)
    546                                                                                (map third transitions)))))
    547                                             (append ss ax)))
     545                                          (let* ((ss1 (delete-duplicates (append (map second transitions)
     546                                                                                 (map third transitions))))
     547                                                 (ss2 (map (lambda (x) (list name x))  ss1)))
     548                                            (append ss2 ax)))
    548549                                  (else ax))
    549550                           ax)))
Note: See TracChangeset for help on using the changeset viewer.