* completed the move to new specify-representation pass infrastructure.

benchmarks/src/gcold.scm

@@ -303,7 +303,7 @@
     (define (oldGenMut n)
       (do ((i 0 (+ i 1)))
 	  ((>= i (quotient n 2)))
-	(oldGenSwapSubTrees)))
+	(oldGenSwapSubtrees)))
 
     ; Does the amount of mutator work appropriate for n bytes of young-gen
     ; garbage allocation.

benchmarks/src/simplex.scm

@@ -10,6 +10,7 @@
 
 (define (simplex a m1 m2 m3)
  (define *epsilon* 1e-6)
+ ;(define *epsilon* 0.000001)
  (if (not (and (>= m1 0)
                (>= m2 0)
                (>= m3 0)

benchmarks/src/smlboyer.scm

@@ -199,8 +199,8 @@
 (define (CProp.terms x) (cadr x))
 
 (define (cterm_to_term x)
-  (if (Cvar? x)
-      (Var (Cvar.i x))
+  (if (CVar? x)
+      (Var (CVar.i x))
       (Prop (get (CProp.name x))
             (map cterm_to_term (CProp.terms x)))))