From: Hal Abelson <edu/mit/hal>
Date: Sat, 16 Jul 1988 20:54:39 +0000 (+0000)
Subject: Fix stupid bug involving `standard-unparser'; it requires 2 arguments,
X-Git-Tag: 20090517-FFI~12651
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3d7c2a2f2f3415abad1d8300674497e8d4c5d429;p=mit-scheme.git

Fix stupid bug involving `standard-unparser'; it requires 2 arguments,
the second is no longer optional.  Check for other occurrences of
this.
---

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)