From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 27 Feb 1992 22:25:45 +0000 (+0000)
Subject: Fix bug in unassigned_p_transform.
X-Git-Tag: 20090517-FFI~9640
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=028e31dfd95053d96f1d0337712ed5ebce68694a;p=mit-scheme.git

Fix bug in unassigned_p_transform.
The system was not complaining about unbound variables.
---

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));