mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
Code Activity

bug fix to enable code "packing"

Browse source 
* module/system/vm/conv.scm (code-pack): Fix so that we actually
  recognize (make-int8 1) and turn it into (make-int8:1).
This commit is contained in:
Andy Wingo 2008-10-18 16:06:43 +02:00
parent ec5cb82591
commit b3b45ac15e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/conv.scm
View file

@ -34,7 +34,7 @@
(define (code-pack code) (define (code-pack code)
(pmatch code (pmatch code
((inst ,n) (guard (integer? n)) ((,inst ,n) (guard (integer? n))
(cond ((< n 10) (cond ((< n 10)
(let ((abbrev (string->symbol (format #f "~A:~A" inst n)))) (let ((abbrev (string->symbol (format #f "~A:~A" inst n))))
(if (instruction? abbrev) (list abbrev) code))) (if (instruction? abbrev) (list abbrev) code)))