[Guile-commits] GNU Guile branch, string_abstraction2, updated. release_1-9-1-143-g073f04e

[Michael Gran]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=073f04e57d052ea740ffb097182cad7d2c2a702a

The branch, string_abstraction2 has been updated
       via  073f04e57d052ea740ffb097182cad7d2c2a702a (commit)
      from  78647c15f003812f26056c879fb0b7120d35ab80 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 073f04e57d052ea740ffb097182cad7d2c2a702a
Author: Michael Gran <address@hidden>
Date:   Wed Aug 12 00:29:58 2009 -0700

    Fix disassembly of strings and symbols, for real this time
    
    * module/language/assembly/decompile-bytecode.scm (decode-bytecode):
      pop bytes in order

-----------------------------------------------------------------------

Summary of changes:
 module/language/assembly/decompile-bytecode.scm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/module/language/assembly/decompile-bytecode.scm 
b/module/language/assembly/decompile-bytecode.scm
index 2f58422..a05db53 100644
--- a/module/language/assembly/decompile-bytecode.scm
+++ b/module/language/assembly/decompile-bytecode.scm
@@ -99,10 +99,10 @@
   (define (get1 bytes-per-char)
     (if (= bytes-per-char 1)
         (pop)
-        (let ((a (pop))
-              (b (pop))
-              (c (pop))
-              (d (pop)))
+        (let* ((a (pop))
+               (b (pop))
+               (c (pop))
+               (d (pop)))
           (if (= byte-order 1234)
               (+ (ash d 24) (ash c 16) (ash b 8) a)            
               (+ (ash a 24) (ash b 16) (ash c 8) d)))))


hooks/post-receive
-- 
GNU Guile