From 3fdf34bb01c14a838676261b4b047af6e41cd600 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 8 May 2000 20:07:27 +0000 Subject: [PATCH] Fix typo in previous change. --- v7/src/edwin/comred.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm index bdd9c55f9..e9bd30264 100644 --- a/v7/src/edwin/comred.scm +++ b/v7/src/edwin/comred.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: comred.scm,v 1.119 2000/05/08 17:53:11 cph Exp $ +;;; $Id: comred.scm,v 1.120 2000/05/08 20:07:27 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology ;;; @@ -242,12 +242,13 @@ (lambda () (let ((next (car *command-suffixes*))) (and (pair? next) - (if (pair? (cdr next)) - (set-car! *command-suffixes* (cdr next)) - (begin - (set-car! *command-suffixes* '()) - (set-cdr! *command-suffixes* '())))) - (car next)))))) + (begin + (if (pair? (cdr next)) + (set-car! *command-suffixes* (cdr next)) + (begin + (set-car! *command-suffixes* '()) + (set-cdr! *command-suffixes* '()))) + (car next)))))))) (if item (begin (apply (car item) (cdr item)) -- 2.25.1