summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-10-18 16:06:43 +0200
committerAndy Wingo <wingo@pobox.com>2008-10-18 16:06:43 +0200
commitb3b45ac15ef508623dd9031f3c7e69dff7949801 (patch)
treed3e9872799007ad5e9533f226d85dc18f5dbab8d /module
parentec5cb8259132365f3a5388c9f833727fbfe5d22f (diff)
downloadguile-b3b45ac15ef508623dd9031f3c7e69dff7949801.tar.gz
bug fix to enable code "packing"
* module/system/vm/conv.scm (code-pack): Fix so that we actually recognize (make-int8 1) and turn it into (make-int8:1).
Diffstat (limited to 'module')
-rw-r--r--module/system/vm/conv.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/conv.scm b/module/system/vm/conv.scm
index 84bd28438..513680aaa 100644
--- a/module/system/vm/conv.scm
+++ b/module/system/vm/conv.scm
@@ -34,7 +34,7 @@
(define (code-pack code)
(pmatch code
- ((inst ,n) (guard (integer? n))
+ ((,inst ,n) (guard (integer? n))
(cond ((< n 10)
(let ((abbrev (string->symbol (format #f "~A:~A" inst n))))
(if (instruction? abbrev) (list abbrev) code)))