From b3b45ac15ef508623dd9031f3c7e69dff7949801 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sat, 18 Oct 2008 16:06:43 +0200
Subject: [PATCH] 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).
---
 module/system/vm/conv.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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