From 028e31dfd95053d96f1d0337712ed5ebce68694a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 27 Feb 1992 22:25:45 +0000 Subject: [PATCH] Fix bug in unassigned_p_transform. The system was not complaining about unbound variables. --- v7/src/microcode/lookup.c | 6 +++--- v8/src/microcode/lookup.c | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c index 63ff2026d..ada718a62 100644 --- a/v7/src/microcode/lookup.c +++ b/v7/src/microcode/lookup.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.50 1992/02/03 23:32:09 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.51 1992/02/27 22:25:45 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -1364,16 +1364,16 @@ DEFUN (unassigned_p_transform, (reference_result), long reference_result) Val = SHARP_T; return (PRIM_DONE); - case ERR_UNBOUND_VARIABLE: case PRIM_DONE: Val = SHARP_F; return (PRIM_DONE); + case ERR_UNBOUND_VARIABLE: default: return (reference_result); } } - + extern long EXFUN (Symbol_Lex_unassigned_p, (SCHEME_OBJECT, SCHEME_OBJECT)), EXFUN (Symbol_Lex_unbound_p, (SCHEME_OBJECT, SCHEME_OBJECT)); diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c index b48a04672..87f6a5b6b 100644 --- a/v8/src/microcode/lookup.c +++ b/v8/src/microcode/lookup.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.50 1992/02/03 23:32:09 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.51 1992/02/27 22:25:45 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -1364,16 +1364,16 @@ DEFUN (unassigned_p_transform, (reference_result), long reference_result) Val = SHARP_T; return (PRIM_DONE); - case ERR_UNBOUND_VARIABLE: case PRIM_DONE: Val = SHARP_F; return (PRIM_DONE); + case ERR_UNBOUND_VARIABLE: default: return (reference_result); } } - + extern long EXFUN (Symbol_Lex_unassigned_p, (SCHEME_OBJECT, SCHEME_OBJECT)), EXFUN (Symbol_Lex_unbound_p, (SCHEME_OBJECT, SCHEME_OBJECT)); -- 2.25.1