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

<glil-mv-bind> can truncate values anonymously

Browse source 
* module/language/glil/compile-assembly.scm (glil->assembly): Allow an
  integer for `vars', which means simply to truncate the values, and not
  pass binding metadata to the compiler.
This commit is contained in:
Andy Wingo 2010-03-03 20:55:42 +01:00
parent da7497e0fd
commit a5c96cb99d
1 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

21
module/language/glil/compile-assembly.scm
View file

@ -333,13 +333,20 @@
arities)) arities))
((<glil-mv-bind> vars rest) ((<glil-mv-bind> vars rest)
(values `((truncate-values ,(length vars) ,(if rest 1 0))) (if (integer? vars)
(open-binding bindings vars addr) (values `((truncate-values ,vars ,(if rest 1 0)))
source-alist bindings
label-alist source-alist
object-alist label-alist
arities)) object-alist
arities)
(values `((truncate-values ,(length vars) ,(if rest 1 0)))
(open-binding bindings vars addr)
source-alist
label-alist
object-alist
arities)))
((<glil-unbind>) ((<glil-unbind>)
(values '() (values '()
(close-binding bindings addr) (close-binding bindings addr)