Changeset 27304 in project


Ignore:
Timestamp:
08/26/12 14:34:30 (9 years ago)
Author:
Ivan Raikov
Message:

nemo: attempt to treat symbols uniformly

Location:
release/4/nemo/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/nemo-utils.scm

    r27093 r27304  
    4545                 (cdr lst)) ))))))
    4646
     47(define fresh (compose string->symbol symbol->string gensym))
     48
    4749
    4850(define (enum-bnds expr ax)
     
    7981  (match expr
    8082         (('if c t e)
    81           (let ((r (gensym "if")))
     83          (let ((r (fresh "if")))
    8284            `(let ((,r (if ,(if-convert c) ,(if-convert t) ,(if-convert e)))) 
    8385               ,r)))
     
    209211           (cnexpr (and cnode
    210212                        (let* ((cvars1   (filter-map (lambda (n) (and (not (eq? n cname)) n)) cvars))
    211                                (sumvar   (gensym "sum")))
     213                               (sumvar   (fresh "sum")))
    212214                          `(let ((,sumvar ,(sum cvars1))) (- ,(first conserve) ,sumvar)))))
    213215           (add-tredge (lambda (s0 s1 rexpr1 rexpr2)
  • release/4/nemo/trunk/nemo.setup

    r27300 r27304  
    285285(make (
    286286       ("nemo" ("nemo.scm")
    287         (compile -no-trace -uses files -d2 nemo.scm))
     287        (compile -no-trace -uses files -O -d2 nemo.scm))
    288288       )
    289289  "nemo")
     
    296296  ; Assoc list with properties for the program:
    297297  `((version ,nemo-version)
    298     (documentation "nemo.html")))
     298    ))
    299299
    300300;; From setup-header.scm by Kon Lovett
Note: See TracChangeset for help on using the changeset viewer.