From 3d7c2a2f2f3415abad1d8300674497e8d4c5d429 Mon Sep 17 00:00:00 2001 From: Hal Abelson Date: Sat, 16 Jul 1988 20:54:39 +0000 Subject: [PATCH] Fix stupid bug involving `standard-unparser'; it requires 2 arguments, the second is no longer optional. Check for other occurrences of this. --- 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 6bbb04be2..6f6af520a 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.3 1988/06/14 08:31:42 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 4.4 1988/07/16 20:54:39 hal Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -65,7 +65,7 @@ MIT in each case. |# (lambda (state application) ((case (application-type application) ((COMBINATION) - (standard-unparser "COMBINATION")) + (standard-unparser "COMBINATION" false)) ((RETURN) (standard-unparser "RETURN" (lambda (state return) -- 2.25.1