Fixed two bugs reported by Chas Emerick (Thanks Chas!):

  1. The call to process-body for (begin ...) expressions at line 1594 was
     missing its who argument ('begin).
  2. Calling the result of the C compiler on the output was failing for people
     who don't have '.' in their path (yes, I have '.' in my path), because the
     system call on line 3535 was missing './' in front of 't'.

  c.ss

c.ss

@@ -1591,7 +1591,7 @@
             (cons 'and (lambda (env . e*) `(and ,(Expr* e* env) ...)))
             (cons 'not (lambda (env e) `(not ,(Expr e env))))
             (cons 'begin (lambda (env . e*)
-                           (process-body env e*
+                           (process-body 'begin env e*
                              (lambda (e* e)
                                `(begin ,e* ... ,e)))))
             (cons 'lambda (lambda (env fmls . body*)
@@ -3532,7 +3532,7 @@
                                    (if (use-boehm?) "-lgc" "")))
                                (when (file-exists? "t.out")
                                  (delete-file "t.out"))
-                               (system "t > t.out")
+                               (system "./t > t.out")
                                (call-with-input-file "t.out" read))
                            (with-syntax ([pass (car pass*)]
                                          [unparser (car unparser*)])