From a484bad9b73de6d038f595890616e1c6df24ea75 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 15 Mar 2002 01:42:41 +0000 Subject: [PATCH] Fix missed reference in last change. --- v7/src/cref/toplev.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm index ec1006b5e..c44faa730 100644 --- a/v7/src/cref/toplev.scm +++ b/v7/src/cref/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: toplev.scm,v 1.17 2002/03/14 04:58:39 cph Exp $ +$Id: toplev.scm,v 1.18 2002/03/15 01:42:41 cph Exp $ Copyright (c) 1988-2002 Massachusetts Institute of Technology @@ -37,14 +37,16 @@ USA. (kernel pathname pmodel changes? os-type)))))) (define (cref/generate-trivial-constructor filename #!optional os-type) - (let ((pathname (merge-pathnames filename))) + (let ((pathname (merge-pathnames filename)) + (os-type + (if (or (default-object? os-type) + (not os-type)) + microcode-id/operating-system + os-type))) (write-external-descriptions pathname - (read-package-model pathname) + (read-package-model pathname os-type) #f - (if (or (default-object? os-type) - (not os-type)) - microcode-id/operating-system - os-type)))) + os-type))) (define cref/generate-cref (generate/common -- 2.25.1