* Kind of fixes bug 163219: Better error message for expand.

scheme/psyntax.expander.ss

@@ -2369,7 +2369,16 @@
            (stx-error e "identifier out of context"))
           ((syntax) (stx-error e "reference to pattern variable outside a syntax form"))
           ((define define-syntax module import library)
-           (stx-error e "invalid expression"))
+           (stx-error e 
+             (string-append 
+               (case type
+                 ((define)        "a definition")
+                 ((define-syntax) "a define-syntax")
+                 ((module)        "a module definition")
+                 ((library)       "a library definition")
+                 ((import)        "an import declaration")
+                 (else            "a non-expression"))
+               " was found where an expression was expected")))
           (else
            ;(error 'chi-expr "invalid type " type (strip e '()))
            (stx-error e "invalid expression"))))))

scheme/todo-r6rs.ss

@@ -917,11 +917,18 @@
                  (library-info (car x))))
        library-names)
      (printf "Status Codes:\n")
-     (for-each 
+     (let* ([s* (map 
-       (lambda (x) 
+                  (lambda (x)
-         (printf "   ~a  ~a  (~s ids)\n" (car x) (cadr x)
+                    (count-status (car x)))
-           (count-status (car x))))
+                  status-names)]
-       status-names)]
+            [all (apply + s*)])
+       (for-each 
+         (lambda (x s) 
+           (printf "   ~a  ~a  (~s ids == ~s%)\n"
+                   (car x) (cadr x) 
+                   s
+                   (/ (round (* (/ s all) 10000)) 100.0)))
+         status-names s*))]
     [else
      (let-values ([(s* l*)
                    (split