From 019bb38901733a1f84e5ba31e74500fb547de8c2 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 26 Aug 1993 05:49:41 +0000
Subject: [PATCH] Sort variables in fluid-let.

---
 v7/src/compiler/base/asstop.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/base/asstop.scm b/v7/src/compiler/base/asstop.scm
index 4fcc2d4d7..546803b35 100644
--- a/v7/src/compiler/base/asstop.scm
+++ b/v7/src/compiler/base/asstop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: asstop.scm,v 1.5 1993/08/26 05:48:53 gjr Exp $
+$Id: asstop.scm,v 1.6 1993/08/26 05:49:41 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -85,10 +85,10 @@ MIT in each case. |#
     (thunk)))
 
 (define (bind-assembler&linker-variables thunk)
-  (fluid-let ((*block-label*)
+  (fluid-let ((*block-associations*)
+	      (*block-label*)
 	      (*external-labels*)
 	      (*end-of-block-code*)
-	      (*block-associations*)
 	      (*next-constant*)
 	      (*interned-constants*)
 	      (*interned-variables*)
-- 
2.25.1