diff options
| author | Daniel Kraft <d@domob.eu> | 2009-11-14 16:04:28 +0100 |
|---|---|---|
| committer | Daniel Kraft <d@domob.eu> | 2009-11-14 16:04:28 +0100 |
| commit | 5ca3b7083c02b498ca31731e49d51f7a3583a349 (patch) | |
| tree | 3872e314c63fefcdce1a4248a9e3e5b3d1f89fde | |
| parent | 87dd448006674daf10256d1789230129da345a09 (diff) | |
| download | guile-wip-wingo-elisp-badness.tar.gz | |
Fix lambda-case problem with elisp.wip-wingo-elisp-badness
* module/language/elisp/compile-tree-il.scm: Build correct symbols.
| -rw-r--r-- | module/language/elisp/compile-tree-il.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/language/elisp/compile-tree-il.scm b/module/language/elisp/compile-tree-il.scm index caa0a30c3..5c9c05f64 100644 --- a/module/language/elisp/compile-tree-il.scm +++ b/module/language/elisp/compile-tree-il.scm @@ -452,7 +452,12 @@ (lambda () (make-lambda loc '() (make-lambda-case - #f required #f rest-name #f '() (append required-sym (list rest-sym)) + #f required #f + (if have-real-rest rest-name #f) + #f '() + (if have-real-rest + (append required-sym (list rest-sym)) + required-sym) #f (let* ((init-req (map (lambda (name-sym) (make-lexical-ref loc (car name-sym) |