Changeset 27304 in project

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:

• nemo-utils.scm (modified) (3 diffs)
• nemo.setup (modified) (2 diffs)

release/4/nemo/trunk/nemo-utils.scm

@@ -45 +45 @@
                  (cdr lst)) ))))))
 
+(define fresh (compose string->symbol symbol->string gensym))
+
 
 (define (enum-bnds expr ax)
@@ -79 +81 @@
   (match expr 
          (('if c t e) 
-          (let ((r (gensym "if")))
+          (let ((r (fresh "if")))
             `(let ((,r (if ,(if-convert c) ,(if-convert t) ,(if-convert e))))  
                ,r)))
@@ -209 +211 @@
            (cnexpr (and cnode
                         (let* ((cvars1   (filter-map (lambda (n) (and (not (eq? n cname)) n)) cvars))
-                               (sumvar   (gensym "sum")))
+                               (sumvar   (fresh "sum")))
                           `(let ((,sumvar ,(sum cvars1))) (- ,(first conserve) ,sumvar)))))
            (add-tredge (lambda (s0 s1 rexpr1 rexpr2)

release/4/nemo/trunk/nemo.setup

@@ -285 +285 @@
 (make (
        ("nemo" ("nemo.scm")
-        (compile -no-trace -uses files -d2 nemo.scm)) 
+        (compile -no-trace -uses files -O -d2 nemo.scm)) 
        )
   "nemo")
@@ -296 +296 @@
   ; Assoc list with properties for the program:
   `((version ,nemo-version)
-    (documentation "nemo.html")))
+    ))
 
 ;; From setup-header.scm by Kon Lovett