From 5335f45cc8f3cf8ad27e10687746b7ae1c59f29c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 17 Apr 1989 18:42:36 +0000 Subject: [PATCH] Fix typo. --- v7/src/compiler/base/ctypes.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm index e071f3c5b..96c9cf297 100644 --- a/v7/src/compiler/base/ctypes.scm +++ b/v7/src/compiler/base/ctypes.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.10 1989/04/17 17:05:19 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.11 1989/04/17 18:42:36 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -177,7 +177,7 @@ MIT in each case. |# (set-procedure-applications! operator (delq! combination (procedure-applications operator))))) - (rvalue-values (combination-operator combination))) + (rvalue-values (combination/operator combination))) (set-application-type! combination 'RETURN) (set-application-operator! combination continuation) (set-application-operands! combination (list rvalue)) -- 2.25.1