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

diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index e4ceadf12f47358635e7f4bbe2ff82beda772400..866bb5f298d62a0ef88e30acdab96fb6f4965563 100644 (file)
--- 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)