Changeset 27304 in project
- Timestamp:
- 08/26/12 14:34:30 (9 years ago)
- Location:
- release/4/nemo/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/nemo/trunk/nemo-utils.scm
r27093 r27304 45 45 (cdr lst)) )))))) 46 46 47 (define fresh (compose string->symbol symbol->string gensym)) 48 47 49 48 50 (define (enum-bnds expr ax) … … 79 81 (match expr 80 82 (('if c t e) 81 (let ((r ( gensym"if")))83 (let ((r (fresh "if"))) 82 84 `(let ((,r (if ,(if-convert c) ,(if-convert t) ,(if-convert e)))) 83 85 ,r))) … … 209 211 (cnexpr (and cnode 210 212 (let* ((cvars1 (filter-map (lambda (n) (and (not (eq? n cname)) n)) cvars)) 211 (sumvar ( gensym"sum")))213 (sumvar (fresh "sum"))) 212 214 `(let ((,sumvar ,(sum cvars1))) (- ,(first conserve) ,sumvar))))) 213 215 (add-tredge (lambda (s0 s1 rexpr1 rexpr2) -
release/4/nemo/trunk/nemo.setup
r27300 r27304 285 285 (make ( 286 286 ("nemo" ("nemo.scm") 287 (compile -no-trace -uses files - d2 nemo.scm))287 (compile -no-trace -uses files -O -d2 nemo.scm)) 288 288 ) 289 289 "nemo") … … 296 296 ; Assoc list with properties for the program: 297 297 `((version ,nemo-version) 298 (documentation "nemo.html")))298 )) 299 299 300 300 ;; From setup-header.scm by Kon Lovett
Note: See TracChangeset
for help on using the changeset viewer.