[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, string_abstraction2, updated. release_

From: Michael Gran
Subject: [Guile-commits] GNU Guile branch, string_abstraction2, updated. release_1-9-1-143-g073f04e
Date: Wed, 12 Aug 2009 07:40:22 +0000

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".

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

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]