From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 11 Mar 1991 23:31:21 +0000 (+0000)
Subject: Fix typo in `error:divide-by-zero'.
X-Git-Tag: 20090517-FFI~10863
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=71b6c3a656dee1ba00561ef4c632ae2bb2e28572;p=mit-scheme.git

Fix typo in `error:divide-by-zero'.
---

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index e4ceadf12..866bb5f29 100644
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.12 1991/03/06 05:14:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.13 1991/03/11 23:31:21 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -854,8 +854,9 @@ MIT in each case. |#
 			     '(DATUM TYPE OPERANDS)
 			     standard-error-handler))
   (set! error:divide-by-zero
-	(condition-constructor condition-type:divide-by-zero
-			       '(OPERATOR OPERANDS)))
+	(condition-signaller condition-type:divide-by-zero
+			     '(OPERATOR OPERANDS)
+			     standard-error-handler))
   (set! error:no-such-restart
 	(condition-signaller condition-type:no-such-restart
 			     '(NAME)