From a8a3a1cdc67fa7bf3be6435500cd4a1fe77be8a8 Mon Sep 17 00:00:00 2001 From: Ian Price Date: Wed, 17 Apr 2013 23:58:09 +0100 Subject: [PATCH 2/3] Add missing `make-sequence' procedure. * module/language/lua/compile-tree-il.scm (make-sequence): New procedure. --- module/language/lua/compile-tree-il.scm | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/module/language/lua/compile-tree-il.scm b/module/language/lua/compile-tree-il.scm index e81e929..e0ecfa3 100644 --- a/module/language/lua/compile-tree-il.scm +++ b/module/language/lua/compile-tree-il.scm @@ -53,6 +53,11 @@ (make-runtime-application src 'new-index! (list table (if (symbol? index) (make-const src (symbol->string index)) index) exp))) +(define (make-sequence src body) + (if (null? (cdr body)) + (car body) + (make-seq src (car body) (make-sequence #f (cdr body))))) + ;; Calling conventions (define* (make-plain-lambda-case src args gensyms body #:optional alternate) (make-lambda-case src args #f #f #f '() (or gensyms args) body alternate)) -- 1.7.7.6