From: Guillermo J. Rozas Date: Thu, 27 Feb 1992 22:43:33 +0000 (+0000) Subject: Add case for lexical-unassigned? in the unbound-variable error X-Git-Tag: 20090517-FFI~9639 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcc6a9fc1f300318fac9b4ba2c950c0b74cbff16;p=mit-scheme.git Add case for lexical-unassigned? in the unbound-variable error handler. --- diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index a89c12f48..9f2920bcb 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.31 1992/02/08 15:08:40 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.32 1992/02/27 22:43:33 jinx Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -480,7 +480,10 @@ MIT in each case. |# name)))) ((eq? (ucode-primitive environment-link-name) operator) (signal-other (apply-frame/operand frame 0) - (apply-frame/operand frame 2)))))) + (apply-frame/operand frame 2))) + ((eq? (ucode-primitive lexical-unassigned?) operator) + (signal-other (apply-frame/operand frame 0) + (apply-frame/operand frame 1)))))) ((COMPILER-REFERENCE-TRAP-RESTART COMPILER-SAFE-REFERENCE-TRAP-RESTART) (signal-reference (reference-trap-frame/environment frame)