Added DEFINE-INTEGRABLE to list of specially formatted keywords.

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index e0107888bb9f4b1c91b652613b7f3ced93264efa..9758d677e8aa1e878385c9111d925e3e08d8ac29 100644 (file)
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pp.scm,v 14.37 1996/04/24 04:22:59 cph Exp $
+$Id: pp.scm,v 14.38 1996/08/26 20:42:45 adams Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -59,6 +59,7 @@ MIT in each case. |#
          (LETREC . ,print-let-expression)
          (FLUID-LET . ,print-let-expression)
          (DEFINE . ,print-procedure)
+         (DEFINE-INTEGRABLE . ,print-procedure)
          (LAMBDA . ,print-procedure)
          (NAMED-LAMBDA . ,print-procedure)))
   (set! dispatch-list code-dispatch-list)