From 391ea707a4f9ecab896303435f940a29caf398fc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 5 Apr 1989 04:25:25 +0000 Subject: [PATCH] Can't use `po' in the runtime system -- it is strictly a part of the compiler. Use `pp' instead. --- v7/src/runtime/framex.scm | 6 ++---- v8/src/runtime/framex.scm | 6 ++---- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/framex.scm b/v7/src/runtime/framex.scm index cea05e6ea..25607f80b 100644 --- a/v7/src/runtime/framex.scm +++ b/v7/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.5 1989/03/29 02:45:33 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.6 1989/04/05 04:25:25 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -66,9 +66,7 @@ MIT in each case. |# (with-output-to-string (lambda () (display "Unknown (methodless) ") - (write frame) - (if long? - (po frame)))))) + (pp frame))))) undefined-environment) (method frame)))) diff --git a/v8/src/runtime/framex.scm b/v8/src/runtime/framex.scm index 12e61e4d8..ae24ff68e 100644 --- a/v8/src/runtime/framex.scm +++ b/v8/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.5 1989/03/29 02:45:33 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.6 1989/04/05 04:25:25 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -66,9 +66,7 @@ MIT in each case. |# (with-output-to-string (lambda () (display "Unknown (methodless) ") - (write frame) - (if long? - (po frame)))))) + (pp frame))))) undefined-environment) (method frame)))) -- 2.25.1