summaryrefslogtreecommitdiff
path: root/module/system/xref.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-09-23 22:13:09 +0200
committerLudovic Courtès <ludo@gnu.org>2009-09-24 00:06:54 +0200
commitd773ba231ce0c8d2c16a50d3449c74c60e0b4921 (patch)
tree08ecfc96446eca6a43b42ab8b91bb9bf29eed01a /module/system/xref.scm
parentec370c6ffb560a718280e906c193dcc912923059 (diff)
downloadguile-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.scm2
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