From d4121483e2546075bfc27bbe9295cb3d64fcb682 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 15 Jun 1991 00:08:45 +0000 Subject: [PATCH] Fix typo in previous change. --- v7/src/runtime/unpars.scm | 34 ++++++++++++++-------------------- 1 file changed, 14 insertions(+), 20 deletions(-) diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm index 15cca88e5..a9abf9a8e 100644 --- a/v7/src/runtime/unpars.scm +++ b/v7/src/runtime/unpars.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.21 1991/06/10 22:50:46 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.22 1991/06/15 00:08:45 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -431,25 +431,19 @@ MIT in each case. |# (define (unparse-tail l n) (cond ((pair? l) - (let ((prefix )) - (cond #| - ((unparse-list/prefix-pair? l) - => (lambda (prefix) - (*unparse-string " . ") - (unparse-list/prefix-pair prefix l))) - |# - ((unparse-list/unparser l) - => (lambda (method) - (*unparse-string " . ") - (invoke-user-method method l))) - (else - (*unparse-char #\space) - (*unparse-object (car l)) - (if (and *unparser-list-breadth-limit* - (>= n *unparser-list-breadth-limit*) - (not (null? (cdr l)))) - (*unparse-string " ...") - (unparse-tail (cdr l) (1+ n))))))) + (let ((method (unparse-list/unparser l))) + (if method + (begin + (*unparse-string " . ") + (invoke-user-method method l)) + (begin + (*unparse-char #\space) + (*unparse-object (car l)) + (if (and *unparser-list-breadth-limit* + (>= n *unparser-list-breadth-limit*) + (not (null? (cdr l)))) + (*unparse-string " ...") + (unparse-tail (cdr l) (1+ n))))))) ((not (null? l)) (*unparse-string " . ") (*unparse-object l)))) -- 2.25.1