HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ec5cb82
)
bug fix to enable code "packing"
author
Andy Wingo
<wingo@pobox.com>
Sat, 18 Oct 2008 14:06:43 +0000
(16:06 +0200)
committer
Andy Wingo
<wingo@pobox.com>
Sat, 18 Oct 2008 14:06:43 +0000
(16:06 +0200)
* 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
patch
|
blob
|
blame
|
history
diff --git
a/module/system/vm/conv.scm
b/module/system/vm/conv.scm
index
84bd284
..
513680a
100644
(file)
--- 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)))