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 63ff2026d06a28355f59804bb8c7a6641ab6a245..ada718a62e858beaad87cf553f371253e5814900 100644 (file)
--- 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);
   }
 }
-\f
+
 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 b48a04672c3e4fec30da5004d84de50094ac4f57..87f6a5b6bf6f731523dc0718bb698dd9349763bb 100644 (file)
--- 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);
   }
 }
-\f
+
 extern long
   EXFUN (Symbol_Lex_unassigned_p, (SCHEME_OBJECT, SCHEME_OBJECT)),
   EXFUN (Symbol_Lex_unbound_p, (SCHEME_OBJECT, SCHEME_OBJECT));