diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-09-23 22:13:09 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-09-24 00:06:54 +0200 |
commit | d773ba231ce0c8d2c16a50d3449c74c60e0b4921 (patch) | |
tree | 08ecfc96446eca6a43b42ab8b91bb9bf29eed01a /module/system/xref.scm | |
parent | ec370c6ffb560a718280e906c193dcc912923059 (diff) | |
download | guile-d773ba231ce0c8d2c16a50d3449c74c60e0b4921.tar.gz |
Partially revert e5f5113c21f396705d7479a570c96690135c9d36.
The intent is to maintain the readability of `pmatch' invocations.
* module/language/assembly/disassemble.scm (disassemble-load-program):
Don't use wildcards in `pmatch' invocations, even when the matched
elements are unused.
* module/language/glil/decompile-assembly.scm (decompile-toplevel,
decompile-load-program): Likewise.
* module/system/xref.scm (program-callee-rev-vars): Likewise.
* module/language/assembly.scm (byte-length): Likewise.
* module/language/tree-il/compile-glil.scm (flatten): Likewise.
Diffstat (limited to 'module/system/xref.scm')
-rw-r--r-- | module/system/xref.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/xref.scm b/module/system/xref.scm index 27c0de56d..906ec8e4a 100644 --- a/module/system/xref.scm +++ b/module/system/xref.scm @@ -35,7 +35,7 @@ (progv (make-vector (vector-length objects) #f)) (asm (decompile (program-objcode prog) #:to 'assembly))) (pmatch asm - ((load-program _ _ _ _ _ . ,body) + ((load-program ,nargs ,nrest ,nlocs ,labels ,len . ,body) (for-each (lambda (x) (pmatch x |