diff options
author | Andy Wingo <wingo@pobox.com> | 2009-05-22 12:48:45 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-05-22 12:48:45 +0200 |
commit | e6b94431794ad5cffedfbdbe949789d04ef97761 (patch) | |
tree | 0ba98caa6d5c2d9fed5a5dbb093a9c3c39ade669 | |
parent | 7902c547130235438fa170d94c43e0c271adb71d (diff) | |
download | guile-e6b94431794ad5cffedfbdbe949789d04ef97761.tar.gz |
fix bad call to make-glil-src
* module/language/tree-il/compile-glil.scm (flatten-lambda): Fix bad call
to make-glil-src, unfortunately not hit during production because
psyntax doesn't yet understand source locations.
-rw-r--r-- | module/language/tree-il/compile-glil.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm index d476ddef9..1bd658787 100644 --- a/module/language/tree-il/compile-glil.scm +++ b/module/language/tree-il/compile-glil.scm @@ -129,7 +129,7 @@ ;; write bindings and source debugging info (emit-bindings #f ids vars allocation emit-code) (if (lambda-src x) - (emit-code (make-glil-src (lambda-src x)))) + (emit-code (make-glil-source (lambda-src x)))) ;; copy args to the heap if necessary (let lp ((in vars) (n 0)) |