From: Chris Hanson Date: Sat, 23 Mar 1991 01:17:36 +0000 (+0000) Subject: Supply missing case in unassigned variable trap. X-Git-Tag: 20090517-FFI~10827 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=87738c8e0b3194a3cbd694e2536f8dec8758253a;p=mit-scheme.git Supply missing case in unassigned variable trap. --- diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index 75fb0c03b..53635af63 100644 --- a/v7/src/runtime/uerror.scm +++ b/v7/src/runtime/uerror.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.23 1991/03/14 04:26:42 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.24 1991/03/23 01:17:36 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -434,7 +434,8 @@ MIT in each case. |# (apply-frame/operator frame)) (signal (apply-frame/operand frame 0) (apply-frame/operand frame 1)))) - ((COMPILER-REFERENCE-TRAP-RESTART) + ((COMPILER-REFERENCE-TRAP-RESTART + COMPILER-OPERATOR-LOOKUP-TRAP-RESTART) (signal (reference-trap-frame/environment frame) (reference-trap-frame/name frame))))))))