From 9003939e1867cb903970e854fc8dc1d63a282453 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 10 Jun 1989 23:54:04 +0000 Subject: [PATCH] Fix trivial bug to recursive-compilation-results. Entries in *recursive-compilation-results* are vectors, not lists! --- v7/src/compiler/base/toplev.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm index b22ce7305..a0c02aee4 100644 --- a/v7/src/compiler/base/toplev.scm +++ b/v7/src/compiler/base/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.17 1989/05/08 23:12:14 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/toplev.scm,v 4.18 1989/06/10 23:54:04 jinx Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -168,7 +168,8 @@ MIT in each case. |# value))) (define (recursive-compilation-results) - (sort *recursive-compilation-results* (lambda (x y) (< (car x) (car y))))) + (sort *recursive-compilation-results* + (lambda (x y) (< (vector-ref x 0) (vector-ref y 0))))) ;;;; The file compiler, its usual mode. -- 2.25.1