From 01e61774df2de165d056339e56b6baa4aa083ce3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 11 Aug 1989 02:29:41 +0000 Subject: [PATCH] (disassembler/write-compiled-code-block): don't require debugging info. The disassembler can run without it. --- v7/src/compiler/machines/bobcat/dassm1.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/dassm1.scm b/v7/src/compiler/machines/bobcat/dassm1.scm index eba15a7d9..805911b9f 100644 --- a/v7/src/compiler/machines/bobcat/dassm1.scm +++ b/v7/src/compiler/machines/bobcat/dassm1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.11 1989/06/07 02:13:54 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/dassm1.scm,v 4.12 1989/08/11 02:29:41 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -111,7 +111,8 @@ MIT in each case. |# (write-string "]")) (define (disassembler/write-compiled-code-block block info #!optional page?) - (let ((symbol-table (dbg-info/labels info))) (if (or (default-object? page?) page?) + (let ((symbol-table (and info (dbg-info/labels info)))) + (if (or (default-object? page?) page?) (begin (write-char #\page) (newline))) -- 2.25.1