diff options
author | Phil <theseaisinhere+git@gmail.com> | 2011-05-07 16:15:11 -0500 |
---|---|---|
committer | Ian Price <ianprice90@googlemail.com> | 2013-09-09 17:01:24 +0100 |
commit | f4c44a3ba7f88e8171e1e2bd14b82d00b5912977 (patch) | |
tree | 53895bbda10c0c7771e3f82261dbd4acb75877c4 /test-suite/tests/lua-eval-3.test | |
parent | faa16f99898a329eba0eaff0ab520eb0f9adbecb (diff) | |
download | guile-f4c44a3ba7f88e8171e1e2bd14b82d00b5912977.tar.gz |
Add some documentation. Function calls now properly handle multiple
values resulting from a function call as the last argument.
doc/ref/api-languages.texi: Add a small blurb about Lua.
module/language/lua/compile-tree-il.scm: Function calls now properly
handle multiple values resulting from a function call as the last
argument.
Diffstat (limited to 'test-suite/tests/lua-eval-3.test')
-rw-r--r-- | test-suite/tests/lua-eval-3.test | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/test-suite/tests/lua-eval-3.test b/test-suite/tests/lua-eval-3.test index 533d4a85b..16a4935b3 100644 --- a/test-suite/tests/lua-eval-3.test +++ b/test-suite/tests/lua-eval-3.test @@ -18,9 +18,6 @@ (define-module (test-lua) #:use-module (ice-9 format) - #:use-module (language tree-il) - #:use-module (srfi srfi-1) - #:use-module (srfi srfi-8) #:use-module (system base compile) #:use-module (test-suite lib) @@ -41,9 +38,22 @@ ((_ string) (test string #t))))) +#| ;; make sure logical expressions don't evaluate expressions twice ;;; y will equal 2 in case of extra eval (test "y = 0 function tmp() y = y + 1 return true end assert(tmp() or tmp()) return y == 1") ;;; y will equal 4 in case of extra eval (test "y = 0 function void(x) end function tmp() y = y + 2 return false end; function tmp2() y = y + 1 return true end; void(tmp() and tmp2()) return y == 2") +|# + 1 )) + + +(define (from-string string) + (compile ((make-parser (open-input-string string))) + #:from 'lua + #:to 'value)) + +;(format #t "~a\n" (from-string "function tmp() return 4,5 end print(1,2,3,tmp())")) + +(format #t "~a\n" (from-string "function tmp(...) print(1,2,3,...) end tmp(4,5)")) |