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

lua code returning via normal path

Browse source 
* module/language/lua/compile-tree-il.scm (compile): Get more lua code
  returning via the normal path.
This commit is contained in:
Andy Wingo 2010-12-10 19:08:25 +01:00 • committed by Ian Price
parent 3043dc0ef7
commit 8c91ae59f9
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/lua/compile-tree-il.scm
View file

@ -132,10 +132,10 @@ dropped silently"
((ast-return src exp) ((ast-return src exp)
(if tail? (if tail?
(if (list? exp) (if (and (list? exp) (not (= (length exp) 1)))
(make-application src (make-primitive-ref src 'values) (make-application src (make-primitive-ref src 'values)
(map-compile exp)) (map-compile exp))
(compile exp #t)) (compile (if (list? exp) (car exp) exp) #t))
(make-application (make-application
src (make-primitive-ref src 'return/values) src (make-primitive-ref src 'return/values)
(if (list? exp) (map-compile exp #t) (list (compile exp)))))) (if (list? exp) (map-compile exp #t) (list (compile exp))))))