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

fix emission of meta procedures

Browse source 
* module/language/glil/compile-assembly.scm: Fix the check for when to
  emit a "meta" procedure. Fixes
  http://thread.gmane.org/gmane.lisp.guile.user/7469/focus=7470.
This commit is contained in:
Andy Wingo 2009-12-10 20:26:54 +01:00
parent ed1bf2c85c
commit 8986ff7ae9
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/glil/compile-assembly.scm
View file

@ -69,7 +69,9 @@
(lp (cdr in) out filename))))))) (lp (cdr in) out filename)))))))
(define (make-meta bindings sources arities tail) (define (make-meta bindings sources arities tail)
(if (and (null? bindings) (null? sources) (null? tail)) ;; sounds silly, but the only case in which we have no arities is when
;; compiling a meta procedure.
(if (and (null? bindings) (null? sources) (null? arities) (null? tail))
#f #f
(compile-assembly (compile-assembly
(make-glil-program '() (make-glil-program '()